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I . INTRODUCTION 


This routine computes inertial, geocentric, and geodetic position data, 
velocity data, and geomagnetic and real field data for a given satellite. 

The data is computed at specified intervals from a given start time to a 
given end time and is written on one or more of the four BCD and binary tapes. 

Output always includes a BCD Master Orbit Tape (TI), and may optionally 
include a BCD Refined World Map Tape (TD), and an Orbital Tape Format-3A or a 
Satellite Position and Real Field Data Tape (TCB) . 

The interval at which Master Orbit Tape and Orbital Tape Format-3A output 
is computed may be varied with respect to the distance between the satellite 
and the center of the earth. 


1 


SPACETASK PLANNING, ANALYSIS & TRACKING SYSTEM 


BROUWER METHOD 
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Figure 1. 


A.O.P.B. Orbit Determination System (Brouwer Method) 
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Figure la. A.O.P.B. Orbit Determination System (Gill Method) 


3 












BLANK 


PACE 


II. PROGRAM DESCRIPTION 


A . PURPOSE 


This routine computes the following quantities for the Master Orbit Tape, 
Orbital Tape Format-3A, and the Refined World Man output at time t: 


r 

v 

£ 

X 

n' 

M- 

h 

r 

a 

v 


v 

*0 

R 

o 

L 

B 

B/fe. 

dr 


xi + + zk, the inertial satellite po=; . . ..n vector 

x£ + y^ + zk, the inertial satellite velocity vector 

inertial solar position vector 

longitude of the sub-satellite point 

geocentric latitude of the sub- satellite point 

geodetic latitude of the sub-satellite point 

height of the satellite above the sub-satellite point 

radial .distance of the satellite from the center of the earth 

inertial right ascension of the satellite position 

magni cude of the satellite velocity 

right ascension of the satellite velocity veccor 

declination of the satellite velocity vector 

geomagnetic latitude of the satellite position 

geomagnetic position coordinate of the satellite 

magnetic shell radius 
magnetic field strength 


ratio of the magnetic field strength 
to the equatorial field strength 

right ascension of the magnetic vector 

declination of the magnetic vector 


Satellite Real 
Field Coordinates 


Tho times of all special points which occur during each pass are also com 
puted for Refined World Map and Orbital Tape Format-3/ output. Special point 
include ascending and descending nodes, north and south points, and sunlight 
entrances and exits. 
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B. CALCULATION PROCEDURE 


If t is equal to a time on the input Orbital Tape Format-1, r and v at t 
are obtained directly from the tape. If t is not equal to a time on the tape 
but is within the time period covered by the tape, r and v at t are estab 
lished by interpolation. Newton’s Backward Difference formula is used to 
interpolate between six vectors from the tape, where t is between the times 
of the third and fourth vectors. 

If t is equal to a time on the input Solar Ephemeris Tape, S at t is 
obtained directly from the tape. If t is not equal to a time on the tape 
but is within the time period covered by the tape, S at t is established by 
interpolation. Everett’s Interpolation formula is used to interpolate between 
four vectors from the tape, where t is between the times of the second and 
third vectors . 

The methods used to compute X, ^ , p,, h, and r from the inertial satellite 
position are given in the description of F 068, Sub-Satellite Point and 
Height Function. 

Satellite real field coordinates L, B, and B/B q are computed by BIO$, a 
Fortran subroutine obtained from Dr. C. E. Mcllwain of the University of 
California, San Diego. (See references.) 

The method used to compute and from the magnetic vector is given 
in the description of F 148, Real Field Right Ascension and Declination. The 
method used to compute cp^ is given in the description of F 147, Geomagnetic 
Latitude and Longitude. 

O', v, or v , 6^, and R^ are computed as follows: 


Of = 

. -1 
tan 

y/x 

V = 

III 


Of = 
V 

tan 1 

y/x 

fl = 

V 

tan 1 

1 

z 

J.2 .2 

|fx + y 


6 


r 


cos cp G 

where: 6 = the principal value of the arc tangent function: - tt/ 2 ^6 =i tt/2 

v v 

Times ol Special Points are computed as follows: 

An ascending node is detected when the sign of the Z-component of the 
satellite position vector changes from - to + . A descending node is detected 
wheD the sign of z changes from + to -. The time of the node is found by 
evaluating z at successively smaller inter /als, with the time of each evalua- 
tion depending on the sign of the previous z. When the time at which the 
sign change occurred has been restricted to a sufficiently small interval, the 
last time at which z was evaluated is used as the time at which z = 0, i.e., 
the time of the node. (The methods used are given in further detail in the 
descriptions of F 149, Z Sign-Change Determination, and F 150, Interpolation 
for Z-Zero Function.) 

A North Point is detected when the sign of the first difference of the 
geodetic latitude changes from + to -. A South Point is detected when the 
sign changes from - to +. A second degree polynomial of latitude versus time 
is obtained by a least squares fit using five sets of coordinates. The value 
of time that causes the first derivative of this function to go to zero, is 
the time of the North or South Point. 

A sunlight entrance or exit is detected when the sunlight determination 
differs for two successive output times. The time of the entrance or exit 
is found by making sunlight determinations at successively smaller intervals, 
with the time of each determination depending on whether the satellite was in 
sunlight or not at the time of the previous determination. (Refer to F 153, 
Sunlight Entrance/Exit Determination Function.) 

The method used to determine whether the satellite is in sunlight at a 
given time is given in the description of F 061, Sunlight Determination with 
Oblate Earth. 


XT 


f 

/ 
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C . FLOW CHARTS AND FUNCTIONAL DESCRIPTIONS 


The following pages contain flow charts and functional descriptions of the 
executive routine and associated functions. Flow charts and corresponding 
descriptions are grouped according to K numbers (see master memory map), with 
the executive routine presented first . 



ENTRY 

OR 

LX IT 


DECI SI ON 



CONNECTOR 


OPERATION 



OFF PAGE 

CONNECTOR 

(X IS BEGIN POINT) 

(Y IS PAGE REFERENCE) 



FUNCTI ON 

F XXX ’ S LIBRARY 
FUNCTION NUMBER 
YYYYY IS THE LOC- 
ATION OF THE 
FUNCTION 


INPUT 


OUTPUT 



Figure 2. Flow Chart Symbols 
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EXECUTIVE ROUTINE 
(K - OOOO) 


(page 2 of 12) 



























EXECUTIVE ROUTINE 
(K = OOOO) 


(page 3 of 12) 


f Sunlight ^ 

DETERMI NAT I ON 


Write binary 

TAPE TITLE 
RECORD 


Set Z -1 = 

FIRST Z 


Set pass no. 

a PASS NO. 

1 


+ 1 


Set perc 

:ent of pass 

1 N 

SC 

in > 999; 

SET 

ini 

TIAL 0RB3 

PASS 

number; 

STORE 

SECONDS OF 

START 

AT 

■ first pass; 

AND 

SC 

:t SECONDS 

OF 

SUN 

1 ENTRANCES 

AND 

EXI 

TS IN FIRST 

PASS » 

• -99999999 


SET INTERVAL 
BETWEEN DATA 
ITEMS ON TAPE; 

SET BINARY RECORD 
STORAGE COUNTER * 0; 

SET B6y2 - B691 
TO WRITE SPRF TAPE 
on TC; 

SET B 15 - B69I 


Set lat.-1 


Set diff.-I 

* 0 


Set lat . at 
time of asc. 

NODE * 0 




Store start 

OF PASS IN 
SECONDS 


Set B 692 * 
8691 TO 

WRITE WMAP 


Set page 
COUNTER - 1 


J.D.S. TO 
J.D. H.M.S 


jk I 


^Q 2 GO TO B690 (no sprf) 
, OR B69I (sprf) 

J 


Compute no. of 
data items and 
no. OF data lines 
for partly-full 

PAGE 


Pri nt 

TITLES, OATA 

THE 

PASS 

NUMBER I 

COMPUTED FOR 

THE 

START TIME 

OF 

THIS 

MAP 

1 

s xxxxxx 

rri 

Set 

PASS 

NO. FOR 

FI RST 

MON 1 

roR print; 

SET 

TIME 

OF PREV. 

LAT . 

« s 

rART TIME 


OF 

*UN 


/ F 146 \ 

r Program P \ 
FOR ORBITAL 
TAPE FORMAT - 1 


Compute first 

1 


Set 624 » 
B 69 I 


Set counter of 
full pages pri nted 


Set first loc. of 

DATA FOR EACH 
SPECIAL POINT ■ 0 


Set secono of sun 

ENTRANCES AND EXITS 
IN NEW PASS * - 9*3 


Set full-linj and 
HALF-LINE COUNTERS 

. 0 


Set LINES to STORE 
IN LEFT half of 
PAGE » LINCS/ 
PART LT -FULL PAGE 
































EXECUTIVE ROUTINE 
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EXECUTIVE ROUTINE 
(K = 0000) 
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F 149 SIGN CHANGE DETERMINATION FOR Z 
(K = 1035) 

I. PURPOSE : This function determines whether an ascending or descending 

node crossing has occurred, and if it has, computes the time of the 
node and the position and velocity vectors for the satellite at this 
time. If: 


+, Z 


Z 


- 1 = - Ascending Node crossing. Enter F150, 

Interpolation for Z-Zero Function to 
compute time of node and corresponding 
position and velocity vectors 

- 1 = + Descending Node crossing. Enter F1L0, 

Interpolation for Z-Zero Function to 
compute time of node and corresponding 
position and velocity vectors 


II. MEMORY REQUIREMENTS: 21 locations 




\ 


III. USAGE: This function is entered with the command - F (X, Y, Z) 


where : 


X = Sign change indicator: (output; 

1 = sign change - to + 

-1 = sign change + to - 
0 = no change 

Y = origin of this function 

Z = Z - 1, the Z-component of che satellite position vector at 
the previous output timf (input) 

Z + 1 = Z 1 , the Z-component of the satellite position vector at the 
current output time (input) 


Q 90001 

J.D. of Zi 

I 

Q 90002 

Sec. of Z. 

x 

Q 90003 

Interpolation for Z-Zero 

F 

Q 90004 

Reduced J.D. - Sec. to C.U.T. 

F 

Q 90005 

J.D. ) Time of Z-Zero 

0 

Q 90006 

Sec. j If Z-Zero = z. 

0 

Q 90007 

T (C.U.T.) 

0 

Q 90008 

Pos. and Vel. Vectors at Z-Zero 

0 

Q 90010 

Orbit Generator Function 

F 
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F 150 - INTERPOLATION FOR Z-ZERO 
(K = 1065) 


I . PURPOSE : This function determines the time of an ascending or descend- 

ing node and the corresponding position and velocity vectors. It is 
entered with Z = 1 for an ascending node, and Z =s 0 for a descending 
node. Output consists of J. D. , seconds, and the position and velocity 
vectors for Z - zero. All output is Q'd. 

II. MEMORY REQUIREMENTS : 27 locations 

III. USAGE: This function is entered with the command - F (X, Y, Z) 

where: 


X = not used 

Y = origin of this function 

Z = sign change indicator (0 if sign change was + to +1 if 
sign change was - to +) 


Q 90001 
Q 90002 
Q 90003 
Q 90004 
Q 90005 
Q 90006 
Q 90007 
Q 90008 
Q 90009 
Q 90010 
Q 90011 


Delta T in seconds 
J.D. Time of Z 

Sec. following sign change 

Reduced J.D. -sec. to C.U.T. 

Orbit generator 

J.D. Ti;ae of 

Sec. Z-zero 

T(CUT) Time of Z-zero 

Pos. + vel. vectors at time of Z-zero 

Z-component of pos. vector 

Tol. for significant time change (sec) 


I 

I 

I 

F 

F 

0 

0 

0 

0 

0 

I 
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> F 150 - INTERPOLATION FOR Z-ZERO 

(K = 1065) 
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F 061 - SUNLIGHT DETERMINATION 
(K = 1100) 


PURPOSE : This function determines whether a satellite is in sunlight 
or in darkness (due to the earth's shadow) at a given time. An option 
is available to consider the effects of an oblate earth in making this 
determination . 

Given: 

£ = the position vector of the satellite in the inertial 

coordinate system, measured in CUL, and having components 
x, y, and z. 

t = the longitude of the sun on reference date, in radians 

T = the motion of tau, in radians per CUT 

t-t 0 = the time in CUT, measured from reference date, at which 
the sunlight determination is to be made 

l£. and Ug = orthogonal unit vectors in the ecliptic plane, expressed 
in the inertial coordinate system. Uj. is directed to the 
vernal equinox and Ug is perpendicular to U x in the 
direction of positive T (Ul = 1, 0, 0; Ug = 0, cos e, sin 
where e = obliquity of ecliptic) 

f = the flattening coefficient of the ellipsoid of reference 

Compute: 

r* = the unit satellite position vector 

T = T + T( t “ t Q ) 

U as Uj. cos T + Ug sin T, having coordinates u, v, w 

If | r x U | < Tl , where T x = 1 - f <z + w ^r 8 -l) 8 , or a constant, and if 
r* • U < Tg , then the satellite is in darkness. Otherwise, it is in 
sunlight . 


MEMORY REQUIREMENTS: 20 locations 



F 061 - SUNLIGHT DETERMINATION (continued) 
(K = 1100) 


III. USAGE: This function is entered with the command - F (X, Y, Z) 

where: 

X = output flag (if X = 0, satellite is in darkness at 

input time 

if X = 1, satellite is in sunlight at 
input time) 

Y = origin of this function 
Z = input time (CUT) 


2+1 = £* 


—X 



Zt 2 = r 

Input satellite position vector 


— y 


Z+3 = r 



— z 



Q 90001 

T , Tolerance for r* .u 

I 

Q 90002 

"l 

I 

Q 90003 

h 2 

I 

Q 90004 

Long, of Sun on Ref. Date (Tau) 

I 

Q 90005 

Motion of Long, of Sun (Tau Dot) 

I 

Q 90006 
Q 90007 

T , Tolerance for | r x u | 
Sine Function 

I 

F 

Q 90008 

Cosine Function 

F 

Q 90009 

VQ 

0 

Q 90010 

Vector Move 

F 

Q 90011 

Vector Magnitude 

F 

Q 90012 

Vector Direction 

F 

Q 90013 

Vector Add 

F 

Q 90014 

Dot Product 

F 

Q 90015 

Cross Product 

F 

Q 90016 

Scalar Multiply 

F 

Q 90017 

Square Root Function 

F 

Q 90018 

W coordinate of U 

0 

Q 90019 

F, Flattening Coefficient 

I 
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F 153 - SUNLIGHT ENTRANCE OR EXIT DETERMINATION 

(K = 1125) 

I. PURPOSE : This function determines whether a sunlight entrance or 

exit has occurred, and if it has, computes the time of the entrance 
or exit, and the position and velocity vectors fcr the satellite at 
this time. 

II. MEMORY REQUIREMENTS : 34 locations 

III. USAGE: This function is entered with the command - F (X, Y, Z) 

where : 


X = exit indicator (output) 

(-1 for exit; +1 for entrance; 0 for neither) 

Y = origin of this function 

Z = Sun indicator -1, the sun indicator at the previous output 
time (input) 

Zfl = Sun indicator 1, the sun indicator at the current output 
time (input) 


Q 

90001 

J.D.) Time of Sun 

I 

Q 

90002 

Sec./ Indicator 1 

I 

Q 

90003 

Delta T (Sec.) 

I 

Q 

90004 

Reduced J.D. - Sec. to C.U.T. 

F 

Q 

90005 

Orbit Generator 

F 

Q 

90006 

Sunlight Det. 

F 

Q 

90007 

J.D.) Time of Sunlight Entrance 

or 0 

: Q 

90008 

Sec./ Exit (If Any) 

0 

1 Q 

90009 

T (C.U.T.) 

0 

! Q 

90010 

Pos. and Vel. Vectors at Ent. or 

Exit 0 

! Q 

90011 

Tol. for Significant Time Change 

( Sec . ) I 

! Q 

90012 

Round Factor for Sec. of Ent. or 

Exit I 

1 Q 

90013 

Seccnds/Day 

I 

i Q 

90014 

Sec. of Ent. or Exit (Rounded) 

0 
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TIME (PER CENT OF ORBIT) IN SUNLIGHT 
(K = 1160) 


I. PURPOSE: This function computes the amount of time a satellite is in 
sunlight and for output expresses it as the percent of the pass during 
which the satellite was in sunlight. 


II. MEMORY REQUIREMENTS: 30 locations 


III. USAGE: This function is entered with the command - F (X, Y, Z) 

where: 


X 

Y 

Z 

Z+l 

Z+2 

Z+3 

Z+4 

Z+5 


percent of pass in sunlight (output) 
origin of this function 
start of pass in seconds 
end of pass in seconds 
first sun entrance in seconds 
first sun exit in seconds 
second sun entrance in seconds 
second sun exit in seconds 


(input) 


Q 90001 Sun Indicator 1 I 

Q 90002 Value of Sec. of Ent. or Exit I 

which did not occur « “99999999 
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F 068 - SUB SATELLITE POINT AND HEIGHT 
(K = ] ’90) 


I. PURPOSE : This function computes the longitude (in degrees and radians), 

geodetic latitude (degrees), geocentric latitude (radians), the height 
above spheroid (kilometers), and the radial distance (CUL) for a 
satellite at a given time, t. 

r 

Longitude = X = arc tan — ^ - Xo - u) t 

—x 


Geocentric 


r 

— z 


Latitude = pi = arc sin — 


Geodetic 

Latitude = p, = p, ' + § 


Height above / - , - \ / \ 

spheroid = ( 1 pH ( R " R e ) 


where: R = r = radial distance 


- Vi 


a a 
+ r + r 
■x — y — z 


, . e a (siiji f cosp, 1 ) 
6 * l-e-W/' 


c = 


K’ 6’ 
e 


,’ e = B (l + + .375 (e 4 cos 4 p. ') 


Note: B = polar radius of earth 

e = eccentricity of earth 

6 ' = oblateness correction 

R' = effective radius of earth 
e 

u) * rotation of earth 
e 

X = H.A. of first pt, of Aries on ref, date 
o 


II. MEMORY REQUIREMENTS : 33 locations 
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F 068 - SUB SATELLITE POINT AND HEIGHT 
(K = 1190) 


III. USAGE : This function is entered with the command - F (X, Y, Z) 

where : 


X 

X+l 

X+2 

Y 

Z 

Z+l 

Z+2 

Z+3 


longitude (degrees) 
geodetic latitude (degrees) 
height above spheroid (kilometers) 
origin of this function 


(output) 


input time (CUT) 



Input 


Satellite Position Vector: 


Q 

90001 

X 0 in radians 

Q 

90002 

Square Root 

Q 

90003 

Arc Tangent 

Q 

90004 

Arc Sine 

Q 

90005 

Cosine 

Q 

90006 

Sine 

Q 

90007 

Angle Reduction 

Q 

90008 

B^( Polar Radius of Earth in C. 

Q 

90009 

e (e = Eccentricity of Earth) 

Q 

90010 

R (Radial Dist. in C.U.L.) 

Q 

90011 

Geocentric Lat. (Rad.) 

Q 

90012 

Longitude (Rad.) 

Q 

00007 

Rotation of Earth in Radians/C 

Q 

00013 

Degrees/Radian 

Q 

00019 

Kilometers/C. U.L. 

Q 

00029 

Pi 

Q 

00030 

2 Pi 


I 


I 

I 

I 

I 

I 
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F 152 - NORTH POINT - SOUTH POINT DETERMINATION 

(K = 1225) 


I. PURPOSE : This function tests the intervals between successive lati- 

tudes to determine whether a North or South Point has occurred. A 
North Point is detected when the sign of the first difference of che 
geodetic latitude changes from + to - . A South Point is detected when 
tne sign change is from - to +. A second degree polynomial of latitude 
versus time is obtained by a least squares fit using five sets of co- 
ordinates. The value of time that causes the first derivative of this 
function to go to zero is the time of the North or South Point. 


II. MEMORY REQUIREMENTS : 59 locations 

III. USAGE : This function is entered with the command - F (X, Y, Z) 

where : 

X = North Point/South Point indicator (output) 

X = 1 = sign change + to - = North Point 
X = -1 = sign change - to + = South Point 
X = 0 = no change, or change determined but necessary 
data could not be computed 
Y = origin of this function 

Z = Diff. -1, the first difference of the latitude at the 
previous output time (input) 


Q 

90001 

Lat 1, latitude at the current output time 

i 

Q 

90002 

Lat -1, latitude at the previous 

output time 

i 

Q 

90003 

J.D. ) Time of 


i 

Q 

90004 

Sec. j Lat -1 


i 

Q 

90005 

Orbit Generator Error Ind . 


0 

Q 

90006 

Delt' T (Sec) 


I 

Q 

90007 

J.D. 

1 Time of 


0 

Q 

90008 

Sec . 

North Pt . or South Pt. 

0 

Q 

90009 

T (C.U.T.) 

(if found) 


0 

Q 

90010 

Pos. and Vel. Vectors at Time of 

NP or SP 

0 

Q 

90011 

K. Degree of Poly. Used in Fit 


I 

Q 

90012 

Matrix Clear 


F 

Q 

90013 

Matrix Normalizer 


F 

Q 

90014 

Fitting Function Partial 


F 

Q 

90015 

Square Rt. 

Matrix Solution 


F 

Q 

90016 

Orbit Generator 


F 

Q 

90017 

Reduced J.D. - Sec. to C.U.T. 


F 
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F 152 - 


Q 90018 
Q 90019 
C„ 90020 
Q 90021 
Q 90022 


NORTH POINT - SOUTH POINT DETERMINATION 
(K = 1225) 


Sub-Satellite Point and Height 
Error Indicator 
Radial Dist.(C.U.L.) at Tl, current output time I 
Long. (Rad) at Tl, current output time I 

Geoc. Lat . (Rad) at Tl, current output time I 
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NORTH POINT - SOUTH POINT DETERMINATION 
(K = 1225) 



/Sub satellite^ 

POINT AND 
i HEIGHT 

Compute lat 

FOR THIS TIME 


Compute JOS for 
(time of lat 1 ) 
+ (A t /2) and 

CONVERT TO CUT 


/ Program P \ 
for Orbital 
Tape Format-1 


ulT POSIT! ON 
FACTOR FOR ABOVE 
T l ME 


Was vector for 


compute time 

OF MAX or MIN 

lat = - (A1/2A2) 


f Add 

ti'me of j 

I max or min to 1 

T 1 ME 

OF LAT, 

AND 

CONVERT 

to 

CUT 


/ Program P 
for Orbital 
l Tape Format -1 

V 6ooo ) 

Get pou i t i on 

I VECTORS FOR 
I ABOVE time 


Were vectors 
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F 064 - SQUARE ROOT NORMAL MATRIX SOLUTION 
(K = 1900) 

I . PURPOSE : This routine uses a special method for inverting a matrix 

which is positive definite by solving a system of simultaneous linear 
equations arising from use of the least squares method. When express- 
ing the simultaneous equations (sometimes called a set of normal equa- 
tions) in the matrix form AX = B, matrix A is symmetric and positive 
definite. The triangular square root method of obtaining the inverse 
of matrix A is therefore applicable. The output of F 066 (matrix nor- 
malized furnishes all of the data required to define the coefficients 
of matrix A as well as all of the elements of matrix B. The triangular 
square root method can be used to solve any system of linear equations, 
provided the matrix of the coefficients is symmetric and positive defi- 
nite . 

II . CALCULATION PROCEDURE : A description of the square root method used to 

solve systems of normal equations arising in least squares solutions of 
a degree polynomial follows. 

Consider the system of normal equations 

a 0 N + a i lx + a 2 lx 2 + . . , -t a k Vx* ^ ly 

—i. 2 3 k+ 1 

a Q lx + & 1 lx + a 2 I x + . . . + a k lx = Ixy 

234 k+2 2 

a 0 lx + a 2 Ex + a 2 Ex + . . . + a fe lx = Ex y 

_k k+1 _ k+2 2k _k 

a Q Ex + a A Ex + a 2 Ex + . . . + a fc Ex = Ex y 

This set of equations may be written in the matrix form 

AX = B 

2 2k 

where A is the matrix of the coefficients N, Ex, Ex , . . . E x (here- 
after called a, ,, a, _, a, „,... a, , , ,), X is the column matrix 
1,1* 1,2’ 1,3* k+1, k+1 ’ 

{ajJ (i = 0, l,...,k) and B is the column matrix of the elements Ey, 

2 k 

Ex y, Ex y, . . . Ex v (hereafter called b^, b 2> b 3> ... b j) . 


35 



F 064 - SQUARE ROOT NORMAL MATRIX SOLUTION (continued) 

(K = 1900) 


a ... a 


b 


a 

1,1 1, k+1 


1 


o 

• 

B = 

• 

X = 

* 

a k+l,l * ‘ * a k+l,k+l 


b , i 

k+1 


a k 


Let the upper 

triangular 

matrix 



s i,i 

S l,2 

S l,3 • ■ • 

S l, k+1 


0 

S 2,2 

S 2,3 ' ‘ ‘ 

S 2,k+1 

S 

0 

0 

S 3,3 * * * 

S 3,k+1 


|^0 0 0 

be defined by the equation 

S' S = A 

where S' (a lower triangular matrix) is the transpose of S, i.e., 

s ' . = s . . . Then 

ij Ji 

S' (SX) = B 


l.k+1 


which can be expressed as the two equations 

S' U = B (2) 

and SX = U (3) 

where U is a column matrix {u^] 

Once S (and S') is determined from Eq. (1), Eqs. (2) and (3) can be 
solved in succession, ihe first for U and the second for X. 


First Step: Obtain S from the relation 

elements of A and S' S, we have 

k+1 i 

^ ^ S i.r S r,j ~ ) : S r,i S r,j 
r=l r=l 


S' S = A. Equating individual 



j ^ i 
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F 064 - SQUARE ROOT NORMAL MATRIX SOLUTION (continued) 

(K = 1900) 

Writing out these equations: 

s s = a 

1,1 1,1 1,1 

s s = a 

1.1 1,J 1,J 

s s + s s — a 

1.2 1,2 2,2 2,2 2,2 

s s + s s = a 

1,2 l,j + 2,2 2, j 2, j 


i-1 

s s s s = a 
r,i r, i i,i i,i i,i 

r=l 
i-1 

s . s . s. . s. . = a. . 

r,i r , j x, i i,j i,j 

r=l 

and solving: 






I I • • • I 



r=l 
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F 0G4 - SQUARE ROOT NORMAL MATRIX SOLUTION (continued) 

(K = 1900) 


-Y s • s 

i.J r,i r »- 


Ii computed in this order, all the quantities on the right-hand sides 
will be known. 

Second Step: Obtain U from S' U = B. Equating individual terms of 

this equation, 


K-f 1 1 

> s' u=> s'. u = b, 

/ j i , r r / ; l , r r 1 


i = 1,2,... k+ 1 


Writing out these equations 


s u = b 
1,1 i i 


therefore, 


s u + s u = b 

1,2 1 2,2 2 2 


*- a. 

> s . u + s. . u. = b. 

/ v r,i r i,i i i 


b - s u 

2 1,2 1 


f. ■■) 

\ r-l • 
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F 064 - SQUARE ROOT NORMAL MATRIX SOLUTION (continued) 

(K = 1900) 


III. 

IV. 


Third Step: Obtain X from SX = U . Equating individual elements, 


k+1 k+1 

V'' s x = V s. x = k. 

• r Z_> i » r r 1 

r=l r=l 


i = 1,2,... k+ 1 


Writing these out, 


S k+l,k+l X k+1 U k+1 


s k.k x k + s k,k+l x k+l “ u k 


u+1 


S . .X. 

1,1 1 


r=i+l 


x --a. 
r r i 


Solving, 


k+1 s 


k+1 
k+1, k+1 


x. 

K 


X 


i 


u. 


S k,k+1 X k+1 
s k, k 


u+1 

5 ; 

r=i+l 


s. 
l , r 


x 

r 


s 


This is simply a backward solution of the S matrix where x x , . . . x 

K+ 1 , K 1 

are the unknowns a, , a a , for which the normal equations are 

k k-1’ o’ 

being solved . 


MEMORY REQUIREMENTS: 60 locations 

USAGE: This function is called by the command - F (X, Y, Z) 


39 


F 064 - SQUARE ROOT NORMAL MATRIX SOLUTION (continued) 

(K = 1900) 


where: 


X = a c 
X+l = a. 


coefficients of the fitting function (output) 


X+M-l = 


m-1 J 

origin of this function 

M, the number of columns in the gj'»en normal 'zer matrix (input) 
M, the number of rows (input) 


Input 

Matrix 


Exit check location contains a zero for a normal exit and a one if a 
zero divisor was found in the matrix. 


Q 90001 
Q 90002 


Exit Check location 
Square Root F. 
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F 066 - MATRIX NORMALIZER FUNCTION 
(K = 1965) 


PURPOSE: This function adds the effect of the n — » point to the partially 
formed coefficients that are to be used in solving the normalized least 
squares equations . 

XI. 

Prior to entering this routine for the first time for fitting a k— — 
degree polynomial, the matrix clear function must have been used. 

The output of this routine gives the values of all of the required 
elements that are to be used in the simultaneous equation solution 
for the coefficients for the polynomial. The square root least squares 
routine is used in solving this set of simultaneous equations. The 
value of the degree of the polynomial plus 1 is given as the first word 
of this array of numbers . 

MEMORY REQUIREMENTS : 20 locations 

USAGE : This function is called by the command - F (X, Y, Z) where: 

X+l = 

X+2 = 

Y = 

Z = 

Z+l = 

Z+2 = 


Z+K = 
Z+K+l = 


M, number of rows of the matrix (input) 

location of first element of the normalized matrix 
(input- output) 

origin of this function 

1 ^ 

V 

V s 

Input, where V is an independent variable and 
. | 'A is a dependent variable 

















F 067 - MATRIX CLEAR FUNCTION 
(K = 1990) 


I. PURPOSE : This function clears a block of memory locations (i.e., sets 

each location = zero) which is to be used as the storage area for the 
coefficients of the normalized least squares equations. The left hand 
side of these equations (expressed in matrix form) , exhibits the prop- 
erty of being symmetric about the diagonal. For this reason, the com- 
plete matrix is not stored. This function is used before calling the 
matrix normalizer function for the first time, to ensure that the 
entire matrix area has been zeroed out. ~’he number of locations to be 
cleared is a function of the degree of the polynomial to be fitted. 

II. MEMORY REQUIREMENTS: 16 locations 

JII. USAGE : This function is called by the command - F (X, Y, Z) 

where: 

X = location of M, number of rows in the matrix (input) 

X+l = location of M, number of columns in the matrix (input) 

X+2 = first location of matrix storage area which is to be cleared 

Y = origin of this function 

Z = 1, number of added columns in the matrix (input) 
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F 065 - FITTING FUNCTION PARTIAL 
(K = 2015) 

I. PURPOSE: Given the coordinates of a point (V, W) this function computes 

V J , for j = 0, . . . , K, where V is the independent variable, W is the 
dependent variable, and K is the degree of the polynomial. The output 
is a set of elements in the following form: 

1 V V s ... v k VI 

II. ME MORY REQUIREMENTS : 10 locations 

III. USAGE: This function is called by the command - F (X, Y, Z) 

where: — 

X=1 I 

x+i = v ! 

output 


Y = the origin of this function 
Z = independent variable input 
Z+l = dependent variable input 

Q 90001 K, The Degree of the Fitting Polynomial I 
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F 065 - FITTING FUNCTION PARTIAL 
(K = 2015) 








PRINT ELEMENTS, DRAGS, EARTH CONSTANTS 
(K = 2035) 


I. PURPOSE: This function writes elements, drags, earth constants, and 

harmonics on tape TI , and optionally on the Refined WMAP tape (ID) . 

All input is Q'd. 

II. MEMORY REQUIREMENTS: 50 locations 


III. USAGE : This function is entered with the command - F (X, Y, Z) where: 

X = 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 


Q 

90001 

First Loc. of Date and Time of Elem. 

Q 

90002 

a 

Q 

90003 

e 

Q 

90004 

i 

Q 

90005 

M 

Q 

90006 

Small Omey . 

Q 

90007 

Cap Omega 

Q 

90008 

ho. of N (P,Q)'s 

Q 

90009 

First Loc. of N (2,Q)'s or of Rho Sub I’ 

Q 

90010 

First Loc. of N (3,Q)’s 

Q 

90011 

First Loc. of Drag Dates, Times 

Q 

90012 

Second Loc. of Drag Dates, Times 

Q 

90013 

Mu 

Q 

90014 

Rotation of earth 

Q 

90015 

Radius of earth 

Q 

90016 

Flatness Coefficient 

Q 

90017 

Output Scale 

Q 

90018 

First Loc. of Sat. Ident. Data 

Q 

90C19 

First Loc. of Run Ident. Data 

Q 

90020 

K2 1 

Q 

90021 

K3 1 

Q 

90022 

K4 [ 

Q 

90023 

K5 \ Harmonics, From Orbital 

Q 

90024 

J / Tape Title Record 

Q 

90025 

H 

Q 

90026 

K \ 

Q 

90027 

L 1 

Q 

90028 

Refined WMAP Output Option 

Q 

90029 

C Sub D 

Q 

90030 

Area 

Q 

90031 

Mass 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

F 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 
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PRINT ELEMENTS, DRAGS, EARTH CONSTANTS 
(K = 2035) 


Q 

90032 

Complementary Perturbations Option 

I 

Q 

90033 

Lunar Perturbations Option (MCOl) 

I 

Q 

90034 

Solar Perturbations Option (MCOI) 

I 

Q 

90035 

Ind. of Orb. Gen. Used to Make Orbital Tape 

I 

Q 

90036 

X 

I 

Q 

90037 

Y 

I 

Q 

90038 

Z 

I 

Q 

90039 

X Dot 

I 

Q 

90040 

Y Dot 

I 

Q 

90041 

Z Dot 

I 


I 


l 
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STORE, WRITE SPRF DATA RECORD 
(K = 2470) 


PURPOSE : This function stores six-word data items and writes the 

stored information on the Satellite Position and Real Field (SPRF) Tape 
(TCB) . Words 1 through 5 of each item consist of longitude, geocen- 
tric latitude, geocentric distance, B, and L. Nothing is stored in 
word 6. The time is stored only in the first item. When 50 data 
items have been stored, they are written on TC in a 350-word binary 
record. The last 45 words of the data record are not used. 


II. M EMORY REQUIREMENTS : 17 locations + 350 storage locations 

III. USAGE : This function is entered with the command - F (X, Y, Z) 

where: 

X = 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 


Q 90001 

Day Count 

Q 90002 

J.D. to Packed Date 

Q 90003 

J.D. ) Time of Data 

Q 90004 

Sec. / To Be Stored 

Q 90005 

Longitude (Degrees) 

Q 90006 

Geoc . Latitude (Degrees) 

Q 90007 

Geocentric Distance (Km.) 

Q 90008 

B (Gauss) 

Q 90009 

L (Earth Radii) 

Q 90011 

Storage Counter 

Q 90012 

Date ttime of First Sat. 

Q 90013 

Day Ct .J Data Item In Record 

Q 90014 

Sec. 

Q 90015 

Longitude (Degrees) 


Q 90016 

Geocentric Latitude (Degrees) 


Q 90017 

R, Geocentric Distance (Km.) 

i 

Q 90018 

B, Field Strength (Gauss) 

’ First Sat 

Q 90019 

L, Magnetic Shell Radius 

1 Data Item 


(Earth Radii) 

in Record 


I 

I 

I 

I 

I 

I 

I 

10 

0 

0 

0 

0 

0 

0 

0 

0 
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P 074 - GSFC ELEMENT PRINT FUNCTION 
(K = 2515) 


I. PURPOSE : This function converts elements to proper units for GSPC 
output on tape TD and optionally on the on-line printer. Output 
consists of the following elements: 

Epoch (date and time) 

Semi-major axis (KM and miles) 

Eccentricity 
Inclination (degrees) 

Mean Anomaly (degrees) 

Argument of perigee and its rate of change (degrees and 
degrees/day) 

R.A. of Ascending node and its rate of change (degrees and 
degrees/day) 

Anomalistic Period and its rate of change (minutes and 
minutes/day) 

Height of Perigee (KM and miles) 

Height of Apogee (KM and miles) 

Velocity at Perigee (KM/hr. and miles/hr.) 

Velocity at Apogee (KM/hr. and miles/hr.) 

Geocentric Latitude (degrees) 

All input is Q'd. 


II. MEMORY REQUIREMENTS: 76 locations 


III. USAGE : This function is entered with the command - F (X, Y, Z) 

where: 

X =• 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 


Q 

90001 

Page Counter 

Q 

90002 

Printer Output Option 

Q 

90003 

Tape Output Option 

Q 

90004 

Satellite Ident. No. 

Q 

90005 

Satellite Name 
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F 074 - GSPC ELEMENT PRINT FUNCTION 
<K = 2515) 


Year J 
Month I 
Day J 
Hour I 
Min. j 
a (C.U.L.) 


Date and Time 
of Elements 


i (Rad.) 

M (Rad.) 

Cap Omega (Rad.) 

Small Omega (Rad.) 

Period (C.U.T.) 

Ht. of Perigee (C.U.L.) 

Ht , of Apogee (C.U.L.) 

Cap Omega Dot (Rad/C. U.T.) 
Small Omega Dot (Rad/C. U.T.) 

P Dot (C.U.T. /C.U.T.) 

Square Root 
Arc Sin 
Sin 

Deg/Rad 

Km/C.U.L. 

Mi/C.U.L. 

C.U.T. /Day 
Min/C.U.T. 

(Km/C.U.L. ) (C.U.T. /Hr) 
(Mi/C.U.L.) (C.U.T. /Hr) 

Round and Scale 

No. of Lines Per Output Page 

Loo. of No. Used by Rounding F. 
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MASTER ORBIT TAPE OUTPUT 
(K = 2600) 


I. PURPOSE ; This function scales data and writes one record on the Master 
Orbit Tape (TI) . T*o page heading records are also written if 47 data 
records have been written since the last heading record. Data includes; 
geocentric longitude and latitude; radial distance; inertial right 
ascension; velocity right ascension; velocity declination- magnitude of 
velocity; geomagnetic Ro and latitude; and Real Field B, L, B/B 0 , right 
ascension, and declination. All input is Q'd. 


II. MEMORY REQUIREMENTS; 49 locations 


USAGE; 

This function is entered with the command - F (X, Y, Z) 


where; 


X = 00000 

(not used) 




Y a origin of this function 




Z = 00000 

(noc U3ed) 



Q 

90001 

J.D. 

1 


Q 

90002 

S. conds, Foil, by Round Value 

I 


Q 

90003 

Geoc. Longitude (Degrees) 

I 


Q 

90004 

Geoc. Latitude (Degrees) 

I 


Q 

90005 

Radial Distance (Km.) 

I 


Q 

9CC06 

Inertial Rt. Aj . (Degrees) 

I 


Q 

90007 

Velocity Rt. As. (Degrees) 

I 


Q 

90008 

Velocity Decl. (Degrees) 

I 


Q 

90009 

Mag. of Velocity (Km/Sec) 

I 


Q 

90010 

Geomag. R (C.U.L.) 

I 


Q 

90011 

Geomag . Latitude (Degrees) 

I 


Q 

90012 

Real Field L (C.U.L.) 

I 


Q 

90013 

Real Field B (Gamma) 

I 


Q 

90014 

Real Field B/B 0 

I 


Q 

90015 

Real Field Rt. As. (Degrees) 

I 


Q 

90016 

Real Field Decl. (Degrees) 

I 


Q 

90017 

Output Page Number 

10 


Q 

90018 

Data Record Counter 

10 


Q 

90019 

Year of Reference 

I 


Q 

90020 

Days Jan. 1-Dref 

I 


Q 

90021 

J.D. - Sec. to J.D. - Hr. - Min. 

F 


Q 

90022 

Date Function 

F 


Q 

90023 

Round and Scale 

F 


Q 

90024 

Loc- of Round Value 

0 


Q 

90025 

Alphabetic Sat. Ident. (3 letters) 

I 


Q 

90026 

Last 4 Digits of S'Xt. Ident. Nu. 

I 


Q 

90027 

Dey Count 

F 
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F 147 - GEOMAGNETIC LATITUDE AND LONGITUDE 
(K ^ 2655) 


I. PURPOSE: This function computes geomagnetic latitude (SMLAT) and geo- 

magnetic longitude (SMLON) as follows: 


SMLAT 



where x x = [cos (DPLCL) sin (SGLAT) + sin (DPLCL) cos (SGLAT) 
cos (SGLON - AAMBZ)] 


SMLON 


where x a 


and y 


y 

= arc tan — 
xs 

sin (SMLAT) cos (DPLCL) - sin (SGLAT) 
cos (SMLAT) sin (DPLCL) 

cos (SGLAT) sin (SGLON - AAMBZ) 
cos (SMLAT) 


SGLAT = Geocentric latitude (radians) 

SGLON = Longitude (radians) 

DPLCL = Geocentric colatitude of north geomagnetic pole 
(radians) 

AAMBZ = Longitude of north geomagnetic pole (radians) 
All input and output is Q'd. 


II. MEMORY REQUIREMENTS: 33 locations 


III. USAGE: This function is entered with the command - F (X, Y, Z) 

where: 

X = 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 


Q 90001 
Q 90002 
Q 90003 
Q 90004 
Q 90005 
Q 90006 
Q 90007 
Q 90008 
Q 90009 
Q 00010 
Q 00011 


Sine F 
Cosine F 
Arc Tan Y/X F 
Arc Tan Y F 
Square Root Function F 
SGLAT (Geoc. Lat. in Radians) I 
SGLON (Long, in Radians) I 
SMLAT (Geomagnetic Latitude) 0 
SMLON (Geomagnetic Longitude) 0 
Geoc. Colatitude of North Geomag. Pole (Rad.) I 
Long, of North Geomagnetic Pole (Rad.) I 


54 



F 041 - LOAD R.A.M.S. DATA 
(K =. 2700) 


I. PURPOSE : This function loads up to 37 R.A.M.S. Data cards and stores 

the information in the R.A.M.S. data table (K = 3300). Each card con- 
tains four R.A.M.S. items. An item consists of a date and the corres- 
ponding R.A.M.S. data. 

II. ME MORY REQUIREMENTS : 39 locations + 300 storage locations 

III. USAGE : This function is entered with the command - F- (X, Y, Z) 

where: 

X = first location of R.A.M.S. data table 
Y = origin of this function 

Z = input option (0 if data on cards; not 0 if data on tape) 

Q 00024 H-M-S to Radians F 
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F 042 - R.A.M.S. DATA SEARCH 
(K = 2745) 

I. PURPOSE i This function searches the R.A.M.S. data table (location 
3300) for R.A.M.S. data for a specific date. 

II. MEMORY REQUIREMENTS : 19 locations 

III . USAGE : This function is called by the command - f (X, Y, Z> 

where: 

X = year 
X+l = month 
X+2 = day 

X+3 = corresponding R.A.M.S. in radians (output) 

(If the dat« is not in the table, (X+3) = 99999999). 
Y = origin ci r _ s function 

Z = first word of R.A.M.S. data table (input) 





F 042 - R.A.M.S. DATA SEARCH 
(K = 2745) 


















FUNCTION TO CALL BI UA 
(K = 2770) 


I. PURPOSE : This function calls the BILM Fortran subroutine which con- 

tains subroutines INVAR, LINES, START, MAGNET, INTEG, and CARMEL . (See 
Reference 6.) 

BILM calculates magnetic coordinates B and L for a point in space de- 
scribed by the coordinates of geodetic latitude (in degrees), longitude 
measured from Greenwich (in degrees) and altitude (in kilometers) mea- 
sured from the surface of the earth (oblate spheroid) along the line 
from the point of interest to the earth’s center. 

The magnetic field, B, is calculated using the Jensen and Cain 48-term 
spherical harmonics expansion of the magnetic field. The magnetic 
field and its components are calculated for the point of interest and 
for subsequent points along the line of force, passing through the 
input point, until the point in the opposite hemisphere, conjugate to 
the input point, is reached or passed. 

After the magnetic field and its components are calculated for the in- 
put point, the position of a second point on the line of force (closer 
to the earth and a fixed distance away from the input point) is esti- 
mated. The estimate is made using the magnetic field components of the 
input point. The magnetic field is then calculated for the estimated 
location of the second point. Using this information, the location of 
the second point is corrected and the magnetic field is calculated 
again for the corrected location. The location of a third point is 
then estimated on the line of force. The location of the third point 
is on the opposite side of the input point the same distance away as is 
the second point. The magnetic field components of the input and sec- 
ond points along with distance between points are used to estimate the 
location of the third point. The magnetic field is then calculated 
for the estimated location and is used to correct this location for the 
third point. The magnetic field for this corrected location is then 
extrapolated using: 

3 

. R(estimated) 

B(corrected point) = B(estimated point) x R ( correcte( |) 

where: R - distance from center of earth to point 
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FUNCTION TO CALL BILM (continued) 
(K - 2770) 


Subsequent points along the line of force are computed stepwise by 
estimating the location of the next point along the line of force based 
on components of the magnetic field and the step size taken at three 
previous points. The magneic field is then jalculated for this esti- 
mated new point location and is used to re-estimate or correct the 
location of this point. The magnetic field for the corrected location 
?s then extrapolated as above. 


After the initial three points are calculated the differential arc 
length along the line of force between points is varied such that when 
the curvature of the line of force is small, large steps are taken be- 
tween points to conserve computer time and when the curvature is large, 
smaller steps are taken to conserve accuracy. The number of steps 
taken and thus the number of points along the line of force where B ip 
calculated is variable but has an upper limit of 199 points. If the 
conjugate poxnt is not reached in 199 steps the code sets L = -1.0 and 
goes on to the next case . 

After computing the set of coordinates that define the path of the line 
of force and the value of B at each point, the integral invariant I is 
computed using a numerical method developed by C . E . Mcllwain, which is 
based on the closed form of the following integral equation. 


I = 



B(S) i 
B(A) ; 


ds 


where: 

A = point of interest 
A' = conjugate point 
B(A) = magnetic field strength at A 

B(S) = magnetic field strength at any point S on line of 
force between A and A' 

ds = differential path length along line of force 



FUNCTION TO CALL BILM (continued) 
(K = 2770) 


The magnetic coordinate L is then computed, using B and I, from a poly- 
nomial expansion for the dipole function. 



where : 

x = 10* (i> S) 

a = expansion coefficient 

(varies for different ranges of values of X, 
refer to reference 6) 

M = dipole moment of earth 

( = 8.06 x 10 36 gauss, cm 3 ) 

log(N) = log N 
6 

exp(N) = e N 


This routine is good for all altitudes and latitudes; the average 
relative error in L is approximately (ERRxL). About one in one hun- 
dred cases will have a relative error greater than 10 times the average 
relative error. The program uses ERR to set the initial size of step 
along the line of force: 

i.e., differential arc length between initial points = 

0.3 x R x ERh, where R = distance from point to center 
of earth, in earth radii. 

After the initial points are calculated (one point on either side of 
the input point) the step size is varied to keep the relative error in 
prediction of the next point along the line of force equal to the mag- 
nitude of ERR. The step size can vary in magnitude between the follow- 
ing limits: 


0.0 < 


differential arc length 
between successive points 


2 ; 


R 

2 
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FUNCTION TO CALL BILM ^continued) 
(K = 2770) 


Since parabolic fits of the B components are used for extrapolation to 
the next point, the error is proportional to the third power of the 
step size. 

Lines of force with L greater than 30 earth radii and lines which pass 
near the geographic poles depend critically upon the accuracy of the 
points close to the earth. An ERR of 0.01 or smaller may be required 
to produce reliable results for these cases. 

The integral invariant I does not appear in the output, but is easily 
accessible by using subroutine INTEG, where it is called FI . 
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FUNCTION TO CALL BILM (continued) 

(K = 2770) 

COEFFICIENTS FOR JENSEN AND CAIN 48-TERM EXPANSION IN 
SPHERICAL HARMONICS OF THE EARTH'S MAGNETIC FIELD FOR 
1960 AS USED IN MAGNET 


The expressions for the components of the earth's magnetic field at a 
point in terms of spherical polar coordinates are as follows: 

03 ^ n+2 

B r = 'y"] (n+l)0j-) * (g“cos mcp + h™sin mcp) P™(cos 0) 


n=l 


m=0 


B, 


B 


E /a\ V m m d m 

- (-) / i (g cos mcp + h sin mcp) ~ P (cos 0) 

n=l ' r/ ni— n n n ao n 


m=0 


9 


°° ^ n^ 

= - (j) (- mg™sin mcp + mh“cos mcp) P®(cos 0) 

n=l ' nt=l 


where: 1. 

2 . 

3. 


4. 

5. 


6 . 


p m (cos 0) are the associated Lengendre polynomials 
n 

g m and h m are Gauss' coefficients for the earth’s potential 
n n 

r is the distance between the point of interest and the 
center of the earth 

a is the average radius of the earth 

cp is the angxe related to longitude 

0 is the angle related to co-latitude 


The constants or coefficients g and h are given values such that the 
calculated magnetic field at a point corresponds to an experimentally 
determined value. In this manner the expressions for the magnetic field 
components represent "fits" to experimentally determined data. 


In the B and L code the expressions for the magnetic field components 
are as follows: 


B 


= ^ ^ (— ^ . n . ^ ] [g(I> cos mcp +• H(I) sin mcp] P(I) 

n=2 XR/ “ J 


7 ^ ^ n 

B e = 2^ - (£) Xj[ g(i) cos ** + H(I) 8in dr] p(I) 
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FUNCTION TO CALI. BILM (continued) 
(K - 2770) 


vE 



(m-1) 


[ - G(I) sin mcp + H(I) cos mcp] 


P(I) 


whei e: 

1. R = distance to point of interest in earth radii 

2. G(i) and H(I) are Gauss' coefficients as computed by 
Jensen and Cain 

3. P(I) are the associated Legendre polynomials 

4. I = n + 7 * (m-1) 

The coefficients G(I) and H(I) as used presently in the B and L code 
are contained in reference 6. 
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FUNCTION TO CALL BIIM (continued) 
(K = 2770) 


INVAR Subroutine 

1. L is computed by; 

a. Computing the magnetic line of force from the starting point 
(FLAT, FLONG, ALT) to pass the conjugate point in the opposite 
hemisphere. This is done by subroutines START and LINES which 
use subroutine MAGNET for computing B and its components along 
the line. The MAGNET subroutine now contains the 48 coefficients 
derived by D . Jensen and J . Cain for the year 1960 and were sup- 
plied by J. Cain in May 1962. Other sets of 48 coefficients can 
easily be inserted. 

b. Integrating along the line to obtain the integral invariant I. 
This is performed by subroutine INTEG in which I is called FI. 

c. Computing L from B and I with subroutine CARMEL which contains 
computed sets of coefficients for the dipole function 

log(L 3 B/M) = F(lo-(I 3 B/M)). 

2. Accuracy - Use of ERR: 

a. In general ERR = 0.03 results in adequate accuracy with a minimum 
of running time. 

b. The average relative error in L is approximately (ERRx L) . About 
one in one hundred cases will have an error greater than ten 
times the average error . 

c. The program uses ERR to set the initial size of step along the 
line of force. Except for several limitations on the maximum 
step size permitted, the step size is varied to keep the relative 
error in prediction to the next point along the line of force 
equal to ERR. 

d. Since parabolic fits of the B components are used for extrapola- 
tion to the next point, the error is proportional to the third 
power of the step size. This and the effect of the limits men- 
tioned above produces the result that little additional computa- 
tion time is required to greatly increase the accuracy. As an 
example, an ERR of 0.003 requires only 1.9 times the time to 
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FUNCTION TO CALL BIUA (continued) 
(K = 2770) 


compute L as with ERR equal to 0.03 




e. Due to the limits placed upon the step size, the running time 
decreases very little for ERR larger than 0.03. 

f. Lines of force with L greater than 30 earth radii depend criti- 
cally upon the accuracy of the points close to the earth. An 
ERR of 0.01 or less may be required to produce reliable results. 

g. Lines of force which pass near the geographic poles also require 
ERR to be relatively small for reliable results. 

3. Limitations: 

a. As far as is known, valid results are produced for any geographic 
latitude, longitude and altitude. 

b. If ERR is very small, more than 199 steps may be required to 
reach the conjugate point. In this case the subrou ^ne sets L 
equal to -1.0 and returns to the calling program. This limita- 
tion can be removed by increasing the dimension of B, ARC, BEG, 
BEND, BLOG, and ECO from 200 to some larger number and by modify- 
ing the cards labeled INVARA15 and LINES082. 

c. The arguments of the sine and cosine functions are in radians. 

4. Input: 

FLAT is the geographic latitude (the angle to the equatorial plane) 
in oegrees (-90° < FLAT < 90°). FLONG is the geographic longitude in 
degrees. ALT is the altitude above the surface ot the earth in kilo- 
meters. The distance from the center of the earth to the surface is 

2 

approximated in the program by the equation 6356.912 + 21.3677 cos 
(lat) + u .108 cos 4 (lat). Note that since the spherical harmonic 
analyses to the earth's magnetic field treat the earth as a sphere, 
the MAGNET subroutine sets the radial distance to 6371.2 + alt. 

5. Output: 

a. BB is the scalar value of the magnetic field in gauss at the 
point in space specified by the input. 

b. FL is the magnetic shell parameter L in earth radii at the speci- 
fied point in space. 
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F 148 - R.4AL FIELD RIGHT ASCENSION AND DECLINATION 

(K = 2800) 


I. PURPOSE: This function computes real field right ascension and de- 

clination as follows: 


FTDCL 

= 

X, 

arc tan ■ ■ • - 

where xj 


sin E sin SGLAT + cos E cos SGLAT cos A 

E 


-F 

r 


nJf 3 + f? 

cp 9 

A 

= 

arc tan F /F„ 
cp 0 

FFRSN 

= 

GHAVE + SGLCN + SPFS 

where SPFS 

= 

arc tan — 

y 

xa 

= 

„ sin A 

cos E — — — 

cos FFDCL 



sin (E)-sin (SGLAT) sin (FFDCL) 

y 


cos (SGLAT) cos (FFDCL) 

FFDGL 

= 

Real Field Declination 

FFRSN 

= 

Real Field Right Ascension 

SGLAT 

= 

Geocentric latitude 

SGLON 

= 

Longitude 

GHAVE 

= 

Greenwich Hour Angle of the Vernal Equinox 

F r » v F 0 

= 

Components of the magnetic field with respect to 
the center of the earth, east and north, 



respectively, in Gauss 

All input and 

output is Q'd. 


II. MEMORY REQUIREMENTS : 67 locations 

III. USAGE : This function is entered with the command - F (X, Y, Z) 

where : 

X = 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 
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F 148 - REAL FIEID RIGHT ASCENSION AND DECLINATION 

(K = 2800) 


i 


! 

i 

! 


Q 90001 Arc Tangent Y/X F 
Q 90002 Square Root F 
Q 90003 Sine F 
Q 90004 Cosine F 
Q 90005 Arc Tan Y F 
Q 90006 F I 
Q 90007 F r I 
Q 90008 F 6 I 
Q 90009 sSSlAT (Geoc. Lat. in Radians) I 
Q 90010 SGLON (Long, in Radians) I 
Q 90011 GHAVE (Greenwich Hour Angle of Vernal Equinox) I 
Q 90012 FFDCL (Real Field Declination) 

Q 90013 FFRSN (Real Field Right Ascension) 

Q 00013 -2 Pi I 
Q 00014 -4 Pi I 
Q 00016 Pi I 
Q 00017 2 Pi I 
Q 00018 4 Pi I 


1 


1 



o o 



F 138 - EVERETTS INTERPOLATION 
(K = 3760) 


II . 
III. 


PURPOSE : This function is used to interpolate between four vectors 


from the Solar Ephemeris Tape, using Everetts Interpolation formula 
where t 0 +ph is between the times of the second and third vectors. 

f (t 0+P h) = <i- P) i 0 +pll - P - <P - -Wp: - 2 > 6 * + <p+»p<p-» «• 

where h = step size 
MEMORY REQUIREMENTS: 27 locations 


3'. 


USAGE : This function is entered with the command - F (X, Y, Z) 

where : 

X = f(t 0 +ph), value of function at t 0 + ph (output) 

Y = origin of this function 
Z = f_ x , value of function at t 0 - h 

Z+10 = f^ , value of function at t 0 

Z+20 = f x , value of function at t Q + h 

Z+30 = fg , value of function at t 0 + 2h 


(input) 


Q 90001 
Q 90002 
Q 90003 


h, Interpolation Step Size I 
t Q +ph, Time of Item for Which to Interp. I 
to. Time of 2nd Item in Interp. Table I 
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COMPUTE AND STORE ORB 3-SPECIAL POINT DATA ITEM 

(K = 3900) 

I« PURPOSE : This function gets satellite position and velocity vectors and 

computes the solar position vector; geocentric latitude; the magnetic 
shell radius; the magnetic field strength; and real field right ascension 
and declination for the special points that occur during each pass. 
Special points include ascending and descending nodes, north and south 
points, and sunlight entrances and exits. All input and output is Q’d. 
The Store, Write 0RB3 Data Record Function is called to write the Orbital 
Tape Format - 3A on logical Tape C. 


II. MEMORY REQUIREMENTS: 20 locations 


III. USAGE : This function is entered with the command - F (X, Y, Z) 

where; 

X = 00000 (not used) 

Y = origin of this function 
Z = 00000 (not used) 


Q 90001 
Q 90002 
Q 90003 
Q 90004 
Q 90005 
Q 90006 
Q 90007 
Q 90008 
Q 90009 
Q 90010 
Q 90011 
Q 90012 
Q 90013 
Q 90014 
Q 90015 
Q 90016 
Q 90017 
Q 90018 
Q 90019 
Q 90020 
Q 90021 
Q 90022 
Q 90023 
Q 90024 


J.D. 

Seconds 


To, Time of 
Special Point 


To 

X 

Y 
Z 
X 

Y 
Z 


(C.U.T.) 


Sat . Pos . Vector 
To in C.U.L. 


at 


Sat. Vel. Vector at 
To in C.U.L. /C.U.T. 


Dot 
Dot 
Dot 
J.D. 

Seconds 
Long. (Deg) 

Geodetic Lat . 

Ht. (Km) 

Radial Dist. (C.U.L.) 
Long . (Rad) 
Geocentric Lat . (Rad) 
X 


(Deg) 


Regular data item 
>— which follows 
special point 



Sat. Pos. 
To in Km 


Vector at 


Sat. Vel. Vector 
To in Km/Sec 


at 


Solar Pos. Vector at To (A.U.) 


I 

I 

I 

I 

I 

I 

I 

I 

I 

10 

10 

IO 

IO 

IO 

10 

10 

10 

0 

0 

0 

0 

0 

0 

0 
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COMPUTE AND STORE ORB 3-SPECIAL POINT DATA ITEM 

(K = 3900) 


Q 90025 
Q 90026 
Q 90027 
Q 90028 
Q 90029 
Q 90030 
Q 90031 
Q 90032 
Q 90033 
Q 90034 
Q 90035 
Q 90036 
Q 90037 
Q 90038 
Q 90039 
Q 90040 
Q 90041 


Geocentric Lat. at To (Deg.) 0 
L at To (C.U.L. ) 0 
B at To (Gauss) 0 
Real Field Rt. Asc. at To (Deg) 0 
Real Field Decl. at To (Deg) 0 
Factor to Add to U. T. to get E.T. (C.U.T.) I 
Max. L Allowed (C.U.L.) I 
Max. B Allowed (Gauss) I 
Km/C.U.L. I 
(Km/C.U.L.) (C.U.T. /Sec) I 
Deg/Rad I 
Sun Tape Read F 
Sub-Satellite Point and Height F 
BILM F 
Compute GHAVE F 
Real Field Right Ascension and Declination F 
Store, Write ORB3 Data Record F 


This 

function, 


TAPE REASSIGNMENT FUNCTION 
(K = 4000) 

area is reserved in memory for the user to insert the standard CIMU 
or for any other tape reassignment routine which may be required. 
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F 146 - PROGRAM P FOR ORBITAL TAPE FORMAT- 1 
(K = 6000) 


I . 


II. 


PURPOSE : This function reads tape TEB to find the position and veloc- 

ity vectors for a given input time. If the correct time is found, it 
exits with the required vectors, and with the exit indicator set to 0. 
If the request time is earlier than the time on tape, it exits 
with 9's in X, ..., X + 5, and the exit indicator set to -1. If the 

request time is later than the 3^ from last time on tape, it exits 

with 9's in X, ..., X + 5, and the exit indicator set to +1. 

MEMORY REQUIREMENTS: 136 locations + 350 locations 

where: 


X = X 
X+l = Y 
X+2 = Z 


Output, position vector in CUL 


X+3 = X 
X+4 = Y 
X+5 = Z 


Output, velocity vector in CUL/CUT 


Y = origin of this function 
Z = time in CUT at which output is desired 


Q 90001 
Q 90002 
Q 90003 
Q 90004 
Q 90005 
Q 900.3 
Q 90007 
Q 90008 
Q 90009 
Q 90010 
Q 90011 
Q 90012 
Q 90013 
Q 90014 
Q 90015 
Q 90016 
Q 90017 
Q 90018 
Q 90020 
Q 90021 


First of 350 Locs . Into Which to Load Record 0 
Second Word of Loaded Record (Day Ct.) 0 
Third Word of Record (Seconds of First Item) 0 
Fourth Word of Record (Interval Bet. Items) 0 
Sixth Word of Record (X in Km) 0 
Seventh Word of Record (Y in Km) 0 
Eighth Word of Record (Z in Km) 0 
Ninth Word of Record (X Dot in Km/Sec) 0 
Tenth Word of Record (Y Dot in Km/Sec) 0 
Eleventh Word of Record (Z Dot in Km/Sec) 0 
Time (C.U. T. ) of 3rd Data Item on Tape I 
Time (C.U. T. ) of 3rd From Last Item on Tape I 
Reduced J.D. - Sec. to C.U.T. (Modified) F 
Packed Date (YYMMDD) to J.D. F 
Backward Difference Interpolation F 
Error Indicator 0 
Time of Item for Which to Interpolate 0 
Time of 6th Item in Interpolation Table O 
Tape Check Indicator I 
No. of Times to Try to Read Record I 
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F 146 - PROGRAM P FOR ORBITAL TAPE FORMAT- 1 
(K = 6000) 


Q 90022 
Q 90023 
Q 90024 
Q 00015 
Q 00016 


-1 (Used to Backspace a Record) 
Exit if Unable to Read Record 
Location Zero 
Km/C.U.L. 

(Km/C.U.L.) (C.U.T./Sec) 


I 


1 

1 
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Packed date 
to J,P, 
y 1420 ) 


Sct seconds or 
nn ST data, 

TIME or MUST DATA 
IN CUT, AND TIME 
or last data in CUT 


GO TO Bl06 
on 3107 
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F 146 - PROGRAM P FOR ORBITAL TAPE FORMAT- 1 
(K = 6000) 


SC COUNTER 
TO PICK UP 
EARLIER FIRST 
ITEM 


IS COUNTER 
NEGAT I VC? 


Set counter 

ADJUSTERS TO 
SHOW LAST MOVE 
I WAS BACKWARD 


Set counter 

TO PICK UP 
LATER 
6 TH ITEM 


Has eno of 

RECORD BEEN 


Convert 

3rd 

POSIT 1 ON 

vector 

to CULj 

AND 

THIRD VELOCITY 1 

VECTOR TO 

CUL/CUT j 


Convert 4th position 

VECTOR TO CL AND 
4th VELOCITY VECTOR 
:o CUL/CUT 


WORD RECORD 


One 350- 
word RECORD 


Compute J.D. 
of 1st data 

ITEM 


Store vectors 

( I N CANONICAL 

units) at 
request time 


Index on X 


Set exit 
chcck * 0 
for good exit 


Store required time 
AND 6th TIME FOR 
inierpolat ion 


I NT C RP0LAT ION 
FOR VECTORS 
AT REQUIRLD 
TIME 


Compute J.D. 

OF FIRST 
data ITEM 



CONVERT P05 I r I ON 

vfctors to CUL 

( AND VELOCITY 

vectors to CUL/^ 


Set counter 
adjuster to 
show last move 
WAS rORVARD 


Set counter to mov 
TIMES AND VECTOR-1 
TO STORAGE, LEAVIN 
SPACE FOR NEW 

6 th 


l'ICK*UP 4N0 
STORE SECTORS AND 
TIME, AND MOVE 
NEW ITEM INTO 
Ltm ITCm } T ORAwE 















FI 20 - BACKWARD DIFFERENCE INTERPOLATION 
(K = 6140) 


I. PURPOSE : This function uses Newton's backward difference formula to 

interpolate between six vectors from Orbital Tape Format-1, where t 
is between the times of the third and fourth vectors. 


cp (t ) = f(U) = Y + U 7 Y + V 8 Y + — jjp — } 7 3 Y + ... 

o n n 6 « n n 

U (U+l) (U+2) ♦ . ♦ (U+n-1) n 


n! 


V Y_ 


where: V P Y = the pth backward difference of Y = 7 P_1 Y - V P 1 Y 

n n n n-i 

7 Y = Y -Y 
1 n n n-i 


U = 


t -t 
o n 


At 


[I. MEMORY REQUIREMENTS: 35 locations 


III. 


USAGE: This function is entered with the command - F (X, Y, Z) 

where: 


X 

Y 

Z 

Z - 10 

Z - 20 

Z - 30 

Z - 40 

Z - 50 

Q 00013 

Q 00024 
Q 00025 


cp (t ) = Y (output) 

^ o o 

origin of this function 


n-i 


n-s 


n-a 


n-4 


n-s 


interpolation table 


(input) 


Interval between times in interpolation 
table (CUT) 

t Q , time of item for which to interpolate, Y q 

t , time of 6th item in interpolation table, Y 
n n 


i 

i 

i 
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D 


MEMORY MAPS 


Two types of memory maps are presented on the following pages; a master 
memory map, and detailed memory maps. The master memory map is a list of 
functions a; i storage areas arranged in order of key numbers. Library Func- 
tion (F) numbers nave been listed where available. Detailed memory maps are 
included for the Executive Routine and the Constants Pool. Begin commands 
are noted on the detailed memory maps with a slash; variable connectors are 
indicated by a slash enclosed in parenthesis (/); W.S. indicates a working 
storage location. 
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MASTER MEMORY MAP 


MEMORY 

REQUIREMENTS 

FUNCTION 

NUMBER 

FUNCTION OR TABLE NAME 

FLOW 

CHART 

PAGE 

MEMORY 

MAP 

PAGE 

CODE 

PAGE 

From 

To 


0799 


Executive Routine 

9 

82 

A-l 

0800 

0878 

0026 

Constants Pool for Master Orbit Tape 


90 

B-2 


0999 


Executive Routine 


91 



1016 

F115 

Reduced J.D.S. to C.U.T. 



B-3 

1020 


— 

J.D. to Packed Date 



B-3 

1035 

1057 

F149 

Sign Change Determination for Z 

21 


B-3 

1065 

1093 

F150 

Interpolation for Z-zero 

22 


B-4 

1100 

1121 

F061 

Sunlight Determination 

24 


B-5 

1125 

1149 

F153 

Sunlight Ent . or Exit Determination 

27 


B-6 

1160 

1186 

— 

Time (% of Orbit) in Sunlight 

28 


B-7 

1190 

1224 

F068 

Sub-Satellite Point and Height 

29 


B-7 

1225 

1284 

F152 

N. Point - S. Point Determination 

31 


B-8 

1285 

1293 

F050 

Absolute Value 



B-10 

1300 

1334 

— 

Type 1 Data Print 



B-10 

1335 

1372 

— 

Type 2 (End-of-Pass) Data Print 



B-12 

1375 

1395 

— 

Type 2 (End-of-Fass) Data Compute 



B-13 

1400 

1413 

F025 

J.D.S. to C.U.T. 



B-14 

1420 

1433 

— 

PacKed Date to J.D. 



B-14 

1500 

1522 

F010 

Arc Tangent Y 



B-14 

1580 

1597 

F055 

One-Word Load 



B-15 

1600 

16°5 

F033 

Run ID Load and Print 



B-15 

1645 

1675 

F069 

Round and Scale 



B-16 

1680 

1691 

F047 

Angle Reducer 



B-17 


1746 

F023 

Date Function 



B-17 


1767 

F106 

J.D.S. to J.D/H/M 



B-18 

1775 

1793 

F026 

J.D.S. to J.D/H/M/S. 



B-19 

1800 

1834 

F022 

Day Count 



B-19 

1840 

1863 

F024 

Obs . Date to Day Count from DREF 



B-20 

1870 

1890 

F019 

Alphabetic Sign/D/M/S, to Radians 



B-20 


1958 

F064 

Square Root Normal Matrix Sol . 

35 


B-21 

1965 

1981 

F066 

Matrix Normalizer 

42 


B-22 
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MASTER MEMORY MAP 


MEMORY 

REQUIREMENTS 

FUNCTION 

NUMBER 

FUNCTION OR TABLE NAME 

FLOW 

CHART 

PAGE 

MEMORY 

MAP 

PAGE 

CODE 

PAGE 

From 

To 

1990 

2006 

F067 

Matrix Clear 

44 


B-22 

2015 

2026 

F065 

Fitting Function Partial 

46 


B-23 

2035 

2086 

— 

Print Elem., Drags, and Earth Constants 

48 


B-23 

2100 

2188 

F012 

Vector Package 



B-26 

2200 

2226 

F011 

Arc Tangent y/x 



B-28 

2235 

2269 

— 

Kepler 



B-29 

2270 

2299 



Type 1 Data Edit and Store 



B-29 

2300 

2357 

F002 

Are Sine-Arc Cosine-Square Root 



B-30 

2360 

2389 

F001 

Sine-Cosine 



B-32 

2400 

2462 

F059 

Input Converter 



B-32 

2470 

2488 

“ 

Store and Write SPRF Tape Data Record 

50 


B-33 

2495 

2514 


Write End Records on SPRF Tape 



B-34 

2515 

2599 

F074 

GSFC Element Print Function 

51 


B-34 

2600 

2648 

— 

Master Orbit Tape Output 

53 


B-37 

2655 

2689 

F147 

Geomagnetic Latitude and Longitude 

54 


B-38 

2700 

2735 

F041 

R.A.M.S. Data Load 

55 


B-39 

2745 

2762 

F042 

R.A.M.S. Data Search 

56 


B-39 

2770 

2775 

— 

Call BILM 

58 


A-l 

2785 

2795 

— 

Set Sense Light 1 



A-l 

2800 

2867 

F148 

Real Field Right Asc . and Decl . 

66 


B-40 

2875 

2892 

— 

Compute GHAVE 



B-41 

2925 

2940 

F018 

DMS to Radians 



B-41 

2950 

2961 

— 

Write SPRF Title Record 



B-42 

2970 

2977 

F031 

Satellite ID Load 



B-42 

3000 

3070 

F062 

Interval Core Dump 



B-43 

3075 

3098 

F063 

Interval Core Dump Print 



B-44 

3135 

3284 

F004 

Memory Print, output Scale 



B-45 

3285 

3296 

F020 

H.M.S. to Radians 



B-48 

3300 

.3599 

— 

R.A.M.S. Data Table 




3600 

3747 

F151 

Solar Ephemeris Tape Read 



B-48 

3760 

3788 

F138 

Everett's Interpolation 

68 


B-50 
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MASTER MEMORY MAP 


MEMORY FUNCTION 
REQl I REMENTS NUMBER 


FUNCTION OR TABLE NAME 


From 

To 

3800 

3810 

3820 

3838 

3850 

3862 

3875 

3890 

3900 

3919 

3930 

3944 

4000 

4070 

4000 

4799 

5600 

5950 

5960 

5978 

6000 

6137 

6140 

6181 

6200 

6550 

7000 

25361 

30000 

32768 


I 


Initialize Sun Tape Read 

F110 Fortran Record Format 

Write ORB3 Title Record 

Write ORB3 End Record 

Compute, Store ORB3 Spec. Pt . Data 
Item 

Store, Write 0RB3 Data Record 

(Reserved for Switch Tape Assgn. F.) 

Storage for Page of Type 1 WMAP Data 

Storage for 0RB3-SPRF Record 

Initialize Program P for Orb. Tape 
Format- 1 

F146 Program P for Orb. Tape Format-1 
F120 Backward Difference Interpolation 
Storage for QRB1 Record 

Machine language program 
M32 Support Systems 


FLOW 

MEMORY 


CHART 

MAP 

CODE 

PAGE 

PAGE 

PAGE 



B-50 



A-12 



B-51 



B-52 
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B-53 



B-54 


B-55 

B-56 

B-60 








CALL TRACING TABLE 


This table may be used to determine the calling sequence of a given 
function. For example, the first entry in the table shows that the function 
at K = 0600 is called by the function at K = 1035, which in turn is called 
by the Executive routine (K = 0000) . When a function is called more than 
once from the same routine, only one entry is shown. 


This 

F. 

Called 

by 

0600 

1035 

0800 

0000 

1000 

0000 

1000 

1035 

1000 

1065 

1000 

1125 

1000 

1225 

1020 

0000 

1020 

1375 

1020 

2470 

1035 

0000 

1065 

1035 

1100 

0000 

1100 

1125 

1125 

0000 

1160 

0000 

1190 

0000 

1190 

1225 

1190 

1375 

1190 

3900 

1225 

0000 

1300 

* 0000 

1335 

0000 

1375 

0000 

1400 

5960 

1400 

6000 

1420 

5960 

1420 

6000 

1500 

2655 

1500 

2800 

)580 

0000 

1600 

0000 

1645 

1335 

1645 

1375 

1645 

2270 

1645 

2515 


This 

F. 

Called 

by 

1645 

2600 

1680 

0000 

1680 

1190 

1680 

2875 

1700 

0000 

1700 

1020 

1700 

2600 

1700 

2875 

1700 

3930 

1750 

0000 

1750 

2270 

1750 

2600 

1775 

0000 

1775 

1375 

1800 

0000 

1800 

1840 

1800 

2470 

1800 

2600 

1800 

2950 

1800 

3850 

1800 

3930 

1840 

0000 

1840 

1420 

1840 

3600 

1900 

1225 

1965 

1225 

1990 

1225 

2015 

1225 

2035 

0000 

2100 

0000 

2100 

1100 

2100 

1100 

2200 

0000 

2200 

1190 

2200 

2655 

2200 

2800 


This 

F. 

Called 

by 

2270 

0000 

2300 

1190 

2300 

0000 

2300 

2515 

2340 

0000 

2340 

1100 

2340 

1190 

2340 

1900 

2340 

2100 

2340 

2515 

2340 

2655 

2340 

2800 

2360 

0000 

2360 

1100 

2360 

1100 

2360 

1190 

2360 

2235 

2360 

2515 

2360 

2655 

2360 

2800 

2365 

0000 

J365 

1100 

2365 

1100 

2365 

1190 

2365 

2235 

2365 

2655 

2365 

2800 

2400 

1580 

2470 

0000 

2495 

0000 

2515 

0000 

2600 

0000 

2655 

0000 

2700 

0000 

2745 

2875 

2770 

0000 


This 

F. 

Called 

by 

2770 

3900 

2800 

0000 

2800 

3900 

2875 

0000 

2875 

3900 

2925 

2970 

2950 

0000 

2970 

0000 

3000 

0000 

3075 

3000 

31 5B 

2035 

3155 

3075 

3285 

2700 

3285 

2970 

3600 

0000 

3600 

3900 

3744 

3760 

3760 

3600 

3800 

0000 

3820 

3850 

3820 

3875 

3820 

3930 

3850 

0000 

3875 

0000 

3900 

0000 

3930 

0000 

3930 

3900 

4000 

0000 

5960 

0000 

6000 

0000 

6000 

1065 

6000 

1125 

6300 

0( J 

6000 

1225 

6140 

6000 
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MYSTIC STORAGE MAP 


0000 


PROGRAM m<~> R 104 


EXECUTIVE ROUTINE 


0000 


l„ 

00 

Start 

01 

Normal 

Stop 

02 

Error 

Stop 


04 

OS 

/ 

05 

/ 

06 

/ 

07 

Overf low/under 
flow go to B35 

08 

/ 

09l 


/ 

10 

/ 

11 

/ 

12 

/ 

13 

14 

u 

(/) 

15 

16 

/ 

17 

/ 

18 

/ 

19 

20 

/ 

20 

/ 

21 

/ 

22 

/ 

23 

(/> 

24 

20 

/ 

25 

/ 

26" 

/ 

27 

/ 

28 

(/> 

29 

20 

/ 

30 

/ 


/ 

32 

/ 

33 

/ 

34 

35 

/ 

35 

36 

/ 

37 

/ 

38 

/ 

39 

41 

/ 

40 

/ 

41 

42 

/ 

43 

/ 

44 

45 

45 

46 

/ 

47 

/ 

48 

/ 

49 

SI 

/ 

50 

— 

/ 

51 

/ 

52 

/ 

53 

/ 

54 


+0. 

55 

+1. 

56 

+2. 

57 

+ 3. 

58 

+5. 

59 


+24. 

60 

+60. 

61 

+ 9. 

62 

-1. 

63 

+ 100. 

64 

D 

+io 4 

65 

+99999909. 

66 

+7. 

67 

W.S, 

"68 

+ 16 

69 

71 

Least significant 
tine change (sec) 

for lnt.arn. ■ -QQ& 


1 



+15. 

"73 

WMAP Page 
Counter 

77 

70 

-2. 

75 

♦seconds/day 

76 

+ .05 

77 

♦seconds /CUT 

Is 

1 

+ .5 

"79 

10 

U. T* to K, T. W 
conversion factor 
■ 35 

Solar ftps 
ID . 1 

TT 

8F 

Tape check 
test ■ -1 


No. of trios 
to read record 
( * 10 __ 

84 

00 

-99999999* 


* 2 rr 

TT 

on ORB1 
tape (CUT) 

87 

88 

Sun % for 0RB3A 
! record with no 

89 

D 

Wds . /ORB3A data 
record ■ 266 

Data wda./ORBSA 
data record ■ 2S3 

9 T 

Data items /ORB 3A 
data record ■ 12 

93 

Wds . /0RB3A data 
item - 21 

Wds , /OKB3A data 
item that are 
f(t) - 1C 

77 

E 

W.8. 

5 

96 

+999999* 

97 

+ 11 

98 

! 

Round value 

99 


Not**: (/) Indicates variable connector 

a Indicates a Q’d location 
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MYSTIC STORAGE MAP 0100 

PROGRAM NO._R.i04_ 

EXECUTIVE ROUTINE 


0100 


•1 

00 

♦Degrees/radian 

01 

♦KK/CUL 

02 

03 

04 

05 

05 

06 

07 

Scale factor for 8 
WMAP height 
= 1000 

Passes between 09 
Asc. Node monitor 
printouts = 10 

10 



hhh 

13 

14 

15 

15 

16 

17 

18 

19 

20 

20 

Alphabetic one ^ 
= 91 

Alphabetic two ^2 
= 92 

23 

24 

Year of reference 


25 

w.s. 





year 

month 

j- 

day 

hour 

30 




^ ** 


time ™ 11 m ^ 

minute 

year 

nu uaiv oi run 
month 

day 


35 


3A 




time ' m 

minute 

MOT search, WMAI^ 
output interval 

YYMMDD 

HHMM 

YYMMDD 

40 

of run " o* 40 

HHMM 



41 



42 

W.s. 

43 

w.s. 

44 

W.S. 

45 



47 



mnmm 

H 

J.D. 

seconds 

50 

Satellite I.D. 50 Year of 51 

number j reference 

n r 1 52 

Days, Jan. 1 

to day of ref. 

Day of ^ 

reference 

\ 54 

o 

(radians) 

55 

* 

(radians) 

56 



57 

. 

58 

59 

Satellite I.D. 
number 

10 

60 

61 

62 

63 

64 

Date (YYMMDD) from 
Sat. I.D. card 


^ pft WOlJLi (V ilcUllU 



65 

w.s. 

66 

W.S. 

67 

w.s. 

68 

, Ref . WMAP 
output option flag 

69 

W.S. 

70 


71 

W.S. 

0RB3A or SPRF 72 
output option 

73 

1 

74 

73 

Unsuccessful 75 
load lnd. from 
Proa . P. Init . F. 

3rd time on ^ 
0RB1 Tape 

3rd from last 77 
time on ORB1 tape 

78 

End time of 79 
run (CUT) 

00 

Satellite I.D. 80 
number from ORB1 

Reference date 
from ORB1 

8i 

83 

84 

05 

Time of sun 85 
vector for which to 

twtapnftUfa 

2nd time in 86 
sun interpolation 

Interval between 87 
sun vectors 
(CUT) 

68 

89 


Time of 0RB1 90 
vector for which 
to interpolate 

6th time in 91 
0RB1 interpolation 
table 

92 

93 

94 

^ 99 

0 

1 - I CD on T1 
0 ■ icr on printer 

96 

Max. no. ol 1CD 
cards * 10 

97 

98 


Notei 

i: * indicates a Q'd location 
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PROGRAM MO R 104 


0200 


MYSTIC STORAGE MAP 


EXECUTIVE ROUTINE 










































































































































MYSTIC STORAGE MAP 


0400 


PROGRAM NO £ 121 


EXECUTIVE ROUTINE 


0400 





33 

34 

or fly page printo 
I T. 

it — 

-BRW 

43 

44 

4® 

R sub max 1 

49 

Interval for 
title record 

53 

12 

54 

R sub min 2 

58 

R sub max 3 

59 

14 

63 

64 

68 

69 


I 




























































MYSTIC STORAGE MAP 


0500 


PROGRAM N0._L_i£2 


EXECUTIVE ROUTINE 


0500 





t 
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program no.. 


MYSTIC STORAGE MAP 


EXECUTIVE ROUTINE 


00 

01 

Year of ref. 

Days Jan . 1 


-epoch 

05 

06 




tf.S. 

1 

12 

P (min/day) 

17 

i (deg.) 

22 

Error ind. 
from NP-SP Det. 

27 

F. 

32 

W.S. 

37 


45 

/ 

50 

/ 

55 

+1000. 

60 



Date of u 
elements ( J. D. ) 


uu (deg/ day) 


(U (deg.) 



Seconds 

09 

Day count of 
Epoch 

14 

• 

Ti (deg/day) 

19 

A (deg.) 

24 

29 

w.s. 

34 i 

w.s. 

39 

/ 

'44 

/ 

49 

/ 

"IT 

/ 

59 

64 

i 

(/> 

69 1 




68 


89 

/ 


/ 




98 

99 

/ 

/ 


Notes: (/) indicates variable connector 

* indicates a Q'd location 
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MYSTIC STORAGE MAP 


0700 



0700 


-Current MOT/OR? 
J.D. 


3A output time 
seconds 


Round value for 
seconds s. .05 


02 


Time of MOT 03 
data currently 
in storage (CUT) 


Current MOT, 04 
OR3A output 
time (CUT) 


05 


06 


07 


08 


MOT output 
time in E S T. 


09 


10 


12 


13 


14 


15 


16 


17 


18 


19 


W.S. 


w.s. 


W.S. 


w.s. 


w.s. 


R = radial 
distance in CUL 


20 


21 


22 


23 


24 


25 


26 


27 

1 s MOT complete’ 

0 = MOT incomplete 


1 = WMAP/SPRF 28 
complete; 0 * 
incomplete 


29 


30 


31 


32 


SPRF 


0R3A 


ORB3A data 
item ID 


33 


ORB3A pass 
number 


34 


'Sat. poa 


vector in km. 
Y 


(fbr 0RB3A) . 




Sat. vel. vi 


e|ctor in km/sec 
Y 


(for 0RB3A) 
2 


41 


* Solar 


Sx 


position vector in) 
Sy 


A. U. ■ 


S 7 


Longitude 

(radians) 


45 


Geocentric 
Lat. (radians) 


46 


47 


% of ORB3A 
pass In sun 


48 


Year of last ORB33? 
data 9tored 


R, radial 
distance (KM) 


50 


Longitude 

(degrees) 


51 


Geocentric 
Lat. (degrees) 


52 


53 


B (Ganna) 


54 


Inertial Rt. 
Asc. (degrees) 


55 


Velocity Rt. 
Asc. (degrees) 


56 


Velocity 
Decl. (degrees) 


57 


Velocity 
Mag. (km/sec) 


58 


59 


60 


R 0 (CUL) 


“55 


Geomagnetic 
Lat. (degrees) 


61 


62 


Geomagnetic 
Long, (radians) 


63 


64 


66 


67 


68 


69 


L (CUL) 


B (Gauss) 


B/BO 


Real Field 70 
Rt. Asc. (degrees) 


71 


Real Field 
Decl. (degrees) 


72 


73 


74 


75 


76 


77 


78 


79 


GHAVE 

(radians) 




TGT 


TT 


82 


83 


84 


F sub 


F sub 0 


F sub R 


T6 


" 5 7 


88 


89 


ERR - .003 




♦Gamma /Gauss 


91 

No. of adds 
for write delay 


92 


93 


94 


Max. output 
I V . « 99.9 


95 


Max. output 
R n « 99.9 


96 


97 

Max. output L 
and B/BO - 99.999 


„ 98 

Max. output B 
(Gamma) ■ 99999 


Max. output B 
(Gauss) - .99999 


99 


Notes: * indicates a Q'd location 
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MYSTIC STORAGE MAP 


K = 0800 


PROGRAM NO. « IP 4 


0026 CONSTANTS POOL FOR 


MASTER ORBIT TAPE 


0800 



00 

01 

02 

03 

04 

Rj 

05 

+1. 

06 

+ 2. 

07 

+4. 

08 

-1. 

09 

-2. 

D 

10 

+60. 

11 

+ 90. 

12 

13 

14 

1 5 

+86400. 15 

sec. /day 

16 

+806.832. 
sec. /CUT 

+297. 17 

1/F 

CO 

i 

li 

3. 

j-6 .2831 853 19 

2TT 

20 

+.72921159xl0 -4 20 

earth rotation 
rad. /sec. 

+57.29578 21 

deg. /rad. 

+6378.388 22 

KM/CUL 

2 -2 23 
e 2 = 2F-F 2 

+67108864. 24 

2 26 

23 

B (Polar rad. of ^5 
earth in CUL) 

+2. 26 
K, deg. of poly. 

+.40915752 27 

26° 26' 34. 795 " 

F 28 

flatness coeff. 

Motion of t in 29 
rad. /CUT 

30 

+0 30 

T1 , tolerance 

for mag. of (rxu) 

+° 31 

T2 , tolerance 

for 

32 

miles/CUL 

33 

CUT/day 

34 

min. /CUT 

33 

35 

(KM/CUL) (CUT/hr . ) 

36 

(mi. /CUL) (CUT/hr.) 

37 

IT 

1 

9 

c+> 

00 

„ 39 

-4TT 

n 





■ ij2 Vector - 



X = 1 

Y = 0 

Z = 0 

X = 0 

Y=cos26° 26’ 34. 795" 

1 

*^! 4tt *1 47 

Z=sin26°26 '34 . 795" ' ! hr. /min. 

48 

rad. /hr . 

Rotation of eartl? 
in rad. /CUT 

n 

+ .18910638xX0 -6 50; . 51 j 52 

motion of t in ! +1 ^” 4?2 CUT/hr. 

rad, /sec. ! 1 

+ 3600. 53 

sec. /hr . 

+15. 54 

deg. /hr . 


55 

56 

TT/2 

+ 1. 57 

radius of earth 
in CUL 



so 

Geoc. colat. of 60 
N Geomag. pole 
(in rad.) 

Long of N 61 
Geomag .pole 
(in rad.) 

62 

(CUL/KM) (sec/CUT) 

63 

64 

15 

65 

66 

67 

68 

69 

70 

70 

71 

72 

73 

74 


75 

76 

77 

78 

79 

1 

80 

81 

82 

83 

84 

IS 

85 

86 

87 

88 

89 

11 

90 

91 

92 

93 

94 

E 

95 

96 

97 

98 

99 
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MYSTIC STORAGE MAP 


0900 




A output time -^01 
seconds -1 


Prev. Xat. diff. 06 
ORB3A diff-1 



Previous ORB3A 
Z-l 


Current ORB3A 
Z1 



07 Previous ORB3A 08 Current 0RB3A iIM p? 

. sun ind . 1 

_ sun ind.-l 


ORB 3 A Z sign - ^ ORB3A NP-SP '3 ORB3A sun entrance 
change ind. crossing ind. -exit ind. 

Time of isi 
sun exit of 
ORB3A pass (sec) 

23 

W.S. 


ORB3A record 
storage counter 

0RB3A regular sa£?| 0RB3A Asc. Node 1 j ORB3A North Pt.^(oRB3A Desc. Node 33 I 0RB3A South Pt. 34 



data item ID = 1 


0RB3A sun ent. 3 ^ 0RB3A sun exit 3 ^ ORB3A special 3 ^ 
data iter ID = 6 data item ID = 7 data item ID = 99 


42 


ID = 2 | data item ID = 3 data item ID = 4 data item ID = 5 


AOOOA 4 ~ i 37 1 38 



Dates and Times of Drags f 



91 

92 

96 

t 97 


91 
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E. SUBROUTINES USED 


i 

i 

I 


FOOl Sine-Cosine 

F002 Arc Sine - Arc Cosine - Square Root 

F004 Memory Print, Output Scale 

F010 Arc Tangent Y 

F011 Arc Tangent Y/X 

F012 Vector Package 

F018 Degrees-Minutes-Seconds To Radians 

F019 Alphabetic Sign/D/M/S To Radians 

F020 Hours-Minutes-Seconds To Radians 

F022 Day Count 

F023 Date Function 

F024 Observation Date To Day Count From DREF 
F025 J.D.S. To C.U.T. 

F026 J.D.S. To J.D./H/M/S 

F031 Satellite Identification Load 

F033 Run Identification Load and Print 

F041 R.A.M.S. Data Load 

F042 R.A.M.S. Data Search 

F047 Angle Reducer 

F050 Absolute Value 

F055 One-Word Load 

F059 Input Converter 

F061 Sunlight Determination 

F062 Interval Core Dump 

F063 Interval Core Dump Print 

F064 Square Root Normal Matrix Solution 

F065 Fitting Function Partial 

F066 Matrix Normalizer 

F067 Matrix Clear 

F068 Sub-Satellite Point and Height 

F069 Round and Scale 

F074 GSFC Element Print Function 

F106 J.D.S. To J.D./H/fo 

F110 Fortran Record Format 

F115 Reduced J.D.S. To C.U.T. 

F120 Backward Difference Interpolation 

F138 Everett's Interpolation 

F146 Program P For Orbital Tape Format- 1 

F147 Geomagnetic Latitude and Longitude 

F148 Real Field Right Ascension and Declination 

F149 Sign Change Determination For Z 

F150 Interpolation For Z-Zero 

F151 Solar Ephemeris Tape Read 

F152 North Point - South Point Determination 

F153 Sunlight Entrance Or Exit Determination 


0026 Constants Pool For Master Orbit Tape 
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E. SUBROUTINES USED (continued) 


J.D. To Packed Date 

Type 1 Data Print 

Type 2 (End-of-Pass) Data Print 

Type 2 (End-of-Pass) Data Compute 

Packed Date To J.D. 

Print Elements, Drags, and Earth Constants 

Time (% of Orbit) in Sunlight 

Type 1 Data Edit and Store 

Store and Write SPRF Tape Data Record 

Write End Records on SPRF Tape 

Master Orbit Tape Output 

Call BILM 

Set Sense Light 1 

Compute GHAVE 

Write SPRF Title Record 

Initialize Sun Tape Read 

Write 0RB3 Title Record 

Write 0RB3 End Record 

Compute, Store 0RB3 Special Point Data Item 

Store, Write 0RB3 Data Record 

Initialize Program P for Orbital Tape Format-1 


93 



F. ABBREVIATIONS 


The following abbreviations are used in this routine. 


a 

AAMBZ 

B 

B/B 

o 

BSP 

CUL 

CUT 

CUV 

DPLCL 

DREF 

e 

EOF 

F 

c 

FFDCL 

FFRSN 

GHA 

GHAVE 

GSFC 

GMT 

HA 

i 

I 

I 

1CD 

JD 

k 

L 

M 

MCOI 

MOT 

NP 

ORB1 

ORB3-A , 0RB3, 
OR3A 


Semi-major Axis of Ellipse 
Longitude of North Geomagnetic Pole 
Magnetic Field Strength 

Ratio of Magnetic Field Strength to Equatorial Field Strength 
Back Space 

Canonical Unit of Length 
Canonical Unit of Time 
Canonical Unit of Velocity 

Geocentric Colatitude of North Geomagnetic Pole in Radians 
Date of Reference 
Eccentricity of Ellipse 
End-of-File 

Real Field Right Ascension and Decli ration 
Real Field Declination 
Real Field Right Ascension 
Greenwich Hour Angle 

Greenwich Hour Angle of the Vernal Equinox 

Goddard Space Flight Center 

Greenwich Mean Time 

Hour Angle 

Inclination 

Integral Invariant 

Output Interval 

Interval Core Dump 

Julian Date 

Degree of Polynomial 

Magnetic Shell Radius 

Dipole Magnetic Moment 

Mystic Coded Orbital Integrator 

Master Orbit Tape 

North Point 

Orbital Tape Format-1 

Orbital Tape Format-3A 
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i 

I 

f 



■■■Wi 


p 

r 


R .A .M.S . 


REW 



SGLAf 

SGLON 

SMLAT 

SMLGN 

SP 

SPRF 

Ul, U2 

UT 

v , v 

~x -y 

WMAP 

a 

X 

K 

T 

T 

Q 

U) 

U) 

e 


Period 

Distance of Vehicle from Earth Center 

Greenwich Hour Angle of the Vernal Equinox (Hour Angle of the 
First ’’oint of Aries) 

Rewind 

Satellite Position Vectors 

Satellite Velocity Vectors 

Geocentric Latitude in Radians 
Longitude in Radians 
Geomagnetic Latitude 
Geomagnetic Longitude 
South Point 

Satellite Position and Real Field 

Orthogonal Unit Vectors in ecliptic plane, expressed in the 
inertial coordinate system. Ul is directed to the vernal 
equinox and U2 is perpendicular to Ul in direction of posi- 
tive longitude of the sun. 

Universal Time 

Satellite Velocity Vectors 

World Map 

Inertial Right Ascension 
Longitude of the Sub-satellite Point 

Greenwich Hour Angle of the Vernal Equinox (Hour Angle of the 
First Point of Aries) on reference date 

Longitude of the Sun on Reference Date 

Motion of v 

Right Ascension of the Ascending Node 

Argument of Perigee 

Rotation of earth in radians/CUT 
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R 104 MASTER ORBIT TAPE ROUTINE 


III. OPERATING INSTRUCTIONS 

This routine computes inertial, geocentric, and geodetic position data, 
velocity data, and geomagnetic and real field data for a given satellite. 

The da.;a is computed at specified intervals from a given start time to a 
given end time and it written on one or more of the four BCD and binary 
tapes . 

Output always includes a BCD Master Orbit Tape (TI) , and may optionally 
include a BCD Refined World Map Tape (TD) , and an Orbital '"ape Format-3A or 
a Satellite Position and Real Field Data Tape (TCB) . 

The interval at which Master Orbit Tape and Orbital Tape Format-3A out- 
put is computed may be varied with respect to the distance between the 
satellite and the center of the earth. 

A. REQUIREMENTS AND OPTIONS 

A production run requires an R 104 system tape for an IBM 7090/94 (or 
equivalent 32K computer with three channels) . The systems tape is compiled 
from an R 104 source deck and the appropriate CAMEO compiler. Other require- 
ments include an on-line printer, six tape drives, and a card reader. Data 
cards should be prepared as specified in Section III B2 (Input Card. Formats). 
Off-line card reader and printer are those required by the MYSTIC system 
(Reference 1) . 

The start time in the data must be equal to or later than the time of 
the third data item on the Orbital Tape Format-1, and equal to or later than 
the time of the second record on the Solar Ephemcris tape. The data end time 
must be equal to or earlier than the time of the third from the last data 
item on the Orbital Tape Format-1, and equal to or earlier than the time of 
the second from last record on the Solar Ephemeris Tape. The R.A.M.S. Data 
cards must include all dates for which output is to be computed. 
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Options include the capability to: 

1. Change initial and/cr computed constants (see description of the 
Change of Constant card) . 

2. Print out areas of core in floating point form using Interval Core 
Dump (ICD) cards. 

3. Vary the interval between Master Orbit Tape and Orbital Tape 
Format-3A output items with respect to the magnitude of the radial distance. 
With this option, output may be obtained at smaller intervals while the 
satellite is closest to the earth and may be completely omitted for any part 
of the orbit that is of little interest. If output includes Orbi al Tape 
Format-3A, however, the output intervals should be chosen so that there is 
relatively little change in the position of the satellite from one output 
time to the next. Such a choice is necessary if no special points are to be 
missed and if their times are to be computed accurately. (See description 
of Output Interval and Radial Distance card.) 

4. Write an Orbital Tape Format-3A or a Binary Satellite Position 

and Real Field Data Tape on Tape Unit B2 (see description of the Run ID card) . 

5. Write a Refined World Map output on Tape Unit C2 (see description 
of the Run ID card) . 
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B . INPUT 


Input is read from cards and tape. Card formats aie described, followed 
by tables defining the input tape formats. 

1 . Card Order 

Input cards should be in the following sequence: 

a. Starting and Ending Time Card 

b. Initial Change of Constants card(s) followed by a blank card 

c. Interval Core Dump card(s) followed by a blank card (if the 
maximum of 10 cards is used, the blank card is not needed) 

d. Satellite Identification card 

e. Run Identification card 

f. Final Change of Constants card(s) followed by a blank card 

g. Output Interval and Radial Distance card 

j h. R.A.M.S. Data card(s) followed by a blank card 

f 

2 . Card Format 

Each card is first illustrated, and then described in a corresponding 
table. Formats are defined by various combinations of the characters S, D, 
and A where: 

S = sign (+ or -) 

D = digit (0, 1,2, ... 9) 

A = alphanumeric (0, 1, 2, ... 9; A, B, ... Z; .,()=:*/) 

i Field descriptions are self-explanatory except for two terms which need fur- 

| ther definition: 

Not Used - indicates that a particular field is not read by the program 

i 

j and may contain explanatory comments at the user’s option. 

i Leave Blank - indicates that the program does read a particular field and 

j expects to find it blank. 
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a. Starting and Ending Time Card 



Format 



8-13 DDDDDD 


15-18 DDDD 


19-21 


22-27 DDDDDD 


29-32 DDDD 


40-43 DDDD 


Field Description 


Leave Blank 


Start date of run: 
8-9 Year 

10-11 Month 

12-13 Day 


Leave Blank 


Start time of run: 
15-16 Hour 

17-18 Minute 


Leave Blank 


End date of run: 

22-23 Year 

24-25 Month 

26-27 Day 


Leave Blank 


End time of run: 

29-30 Hour 

31-32 Minute 


Leave Blank 


Refined World Map and Satellite Position and Real Field 
Data Tape output interval in seconds (also used as 
search interval for Master Orbit Tape and Orbital Tape 
Format-3A output)* 


100 
































a. Starting and Ending Time Card 
(continued) 


Card 

Col. 

Format 

Field Description 

44-62 


Leave Blank 

63-67 

DDDDD 

Pass number at the st?rt date and time in Cols. S-18 
(may be left blank if output does not include Oroital 
Tape Format-3A or Refined World Map) 

68-72 


Leave Blank 


♦The search interval is used only when no Master Orbit Tape and Orbital 
Tape Format-3A output is being computed. Radial distance is computed at 
this interval until it falls within a set of minimum and maximum values 
given on the Output Interval and Radial Distance Card. Output is then 
computed at the interval corresponding to the value of the radial dis- 
tance . 



b. and f. Change of Constant Card 




0 0 0 0 0 10 

1 2 3 4 5 


00000000 


(71 9 10 It 12 13 


000 

15 16 17 



////////////////////////V//////////////////////////////////////////////// 

00000 000 0000 000 000000 000 000 000 000 0000 00 0000 000 000000 000 


18 19 20 21 22 23 24 25 26 27 28 29 30 31 3'. 33 34 35 3$ 37 38 J 9 40 4 ! 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 6' 6* 66 67 68 69 70 71 72 


11111 
2 2 2 2 2 

3 3 3 3 3 3 

4 4 4 4 4 4 

5 5 


|1 1 1 1 1 1 1 1 1 
| 2 2 2 2 2 2 2 2 2 
33333333 
4 4 4 4 4 


1 1 1 
222 
333 


11111 
2 2 2 2 21 


CHANGE OF CONSTANT CARD 


1111111111111111111111 

2222222222222222222222 


[3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
444444444444444444444444444444444444444444444444444 



Card 

Col. 

Format 

Field Description 

■9 

DDDDD 

Core location to be changed 

6-17 

SDDDDDDDDSDD 

Constant in floating decimal form to be insen.ed above 

18-72 

1 - 

Not used 


Note: There is no limit on the number of Change of Constants cards that may 

be included; however, the last Change of Constants card must be fol- 
lowed by a blank card . 
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b. and f. Change of Constant Card 
(continued) 


The following basic constants may be changed using the initial Change of 
Constant cards: 


Location 

Nominal 

Remarks 

00816 

806 . 832 

Seconds/C. U. . . 

00822 

6378.388 

Kilometers/C .U.L. 

00862 

1 

GM 

00857 

1 

Equatorial radius of the earth in C.U.L. 

00817 

297 4 

1/flattening coefficient 

00820 

.72921159X10 

Rotation of the earth in radians/second 

00850 

.19910638X10 

Tau dot in radians/second 

00851 

1.6093472 

Kilometers/mile 

00860 

78.2 

Geocentric latitude of the North geomagnetic pole 
in degrees 

00861 

-69.0 

Longitude of the North geomagnetic pole in degrees 

00827 

.40915752 

e , obliquity of the ecliptic in radians ( e is used 
in sunlight computations. Its nominal value is 
equivalent to 23° 26' 34.795") 


The following constants are computed from basic constants and may be 
changed using the final Change of Constant cards: 


Location 

Nominal Remarks 

00828 

00825 

00823 

.0033670033 

.996633 

.00672267 

Flattening coefficient 

b, polar radius of the earth in C.U.L. 

e 7 , where e is the eccentricity of the earth 


The following constants may be changed using either the initial or the 
final Change of Constant cards: 


Location 

Nominal 

Remarks 

00830 

0 

T 1, tolerance for | rxU | in sunlight computation. 
(T 1 is used only if it is ^ 0. If T 1 = 0, the 
routine computes the tolerance for | rxU | , taking 
into account the earth's oblateness) 

00831 

0 

Tolerance for r*«U in sunlight computation 

00108 

1000 

Scale factor by which satellite height is 
multiplied for Refined World Map output 

00002 

none 

Key setting (decimal) of next routine on systems 
tape which is to be executed 
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c . Interval Core Dump Card 



0 0 0 0 0 


0 0 0 0 0 


0 0 0 0 0 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


12 3 4 5 
11111 



I 7 I • 10 
11111 


11 12 13 14 I5j 

11111 


2 2 2 2 2 
3 3 3 3 313 3 3 3 3 


II 17 II II 20 21 22 23 24 25 21 27 21 21 30 31 32 33 34 35 31 37 31 39 40 41 42 43 44 45 46 47 41 41 50 51 52 53 54 55 5I 57 5I59IOI1I2I3I4I5III7«IH70 71 72| 

1111111111111111111111 


1111111 
2222 212 222222 


INTERVAL CORE DUMP CARD 


2222222222222222222222 


333333333333333333333333333333333333333333333333333333333 ! 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 *| 

555555555555555555555555555 


Card 

Col. 

Format 

Field Description 

wm 1 

DDDDD 

Begin command at which dump is to be taken 

6-10 

DDDDD 

Beginning location of core area to be dumped 

11-15 

DDDDD 

Ending location of core area to be dumped 

16-72 


Not used 


Note: A maximum of 10 cards may be used* A blank card follows last 

card unless 10 cards are used. 
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00 

[a 27 


000 


0000000000000000000000000000 

25 a jjgl 3? 33 34 3 5 X ]> M M <041 42 43 44 45 4( <7 X « 50 51 52 53 54 55 SO 57 50| 

11111 


SATELLITE IDENTIFICATION CARD 





332H 

1 

s 

1 

s 


000000000000 
|59 10 01 02 S3 14 IS M 57 M 05 70| 

11111111111 


2 2 2 2 2 2 


3333333333333333333333333333 
4444444444444444444444444444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 51 


11 


00 

|7I 72 

1 


222222222222 

333333333333 

444444444444 


Card 

Col. 


Format 


Field Description 


1-5 


DDDDD 


Satellite identification number 


6-11 


DDDDDD 


Date of reference: 
6-7 Year 

8-9 Month 

10-11 Day 


12-20 


DDDDDDDD 


Hour angle of the first point of Aries on above date 

(X o ): 

12-13 Hours 

14-15 Minutes 

16-17 Seconds 

18-20 Fraction of seconds 


21-30 


DDDDDDDDDD 


Longitude 


31-58 


59-70 


AAA. 


21-23 

24-25 

26-27 

28-30 


..A 


of Sun (T ) : 

Degrees 

Minutes 

Seconds 

Fraction of seconds 


71-72 


Not used 

Any alphabetic designation for satellite name 
Not used 
































e. Run Identification Card 



RUN I DC NT I F I CAT I ON 


RUN I DCNT I F l CA f I ON 


[OOOOOOOiiGOOOOOOOOOOOOObOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOQO 

J 10 II 12 13 !4 la 17 II 19 20 21 22 23 24 25 26 J7 29 M 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 4« 47 41 49 50 51 52 53 54 55 56 37 51 59 60 II 62 63 84 65 SI 67 8* 69 70 71 72 

11111111111111 

22222222222222 


KUN i DENT 1 F i CATION CARD 


|3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

H 4 4 lAJXUXijj 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

555555555 


[ 111111111111111111111 
222222222222222222222 
33333333333333333333333333333333 

44414444444444444444444444444444 

555555555555555555: 


Card 

Col. 

Format 

Field Description 

n 


Leave Blank 

4 

A 

Punch for Refined World Map output on Tape Unit C2 
Blank for no Refined World Map output 

n 


Leave Blank 

8 

D 

D=1 for Orbital Tape Format-3A Output on Tape Unit B2 
D=2 for Binary Satellite Position and Real Field Data 
Tape Output on Tape Unit B2 
Blank for no output on B2 

9-40 

AAA. . .A 

Run identification to go on fourth data line of fly 
page 

41-72 

AAA, . .A 

Run identification to go on fifth data line of fly 
page 











g. Output Interval and Radial Distance Card 



Card 

Col. 


Format 


Field Description 



Leave Blank 


2-5 


6 


7-12 


13-18 


19 


20-23 


24 


25-30 


31-36 


37 


38-41 


42 


43-48 


49-54 


55 


56-59 


60 


61-66 


67-72 


DDDDDD 


DDDDDD 



DDDDDD 


DDDDDD 



Leave 

Blank 


R sub 

Min 1 

Kilometers 

R sub 

Max 1 

Kilometers 

Leave 

Blank 


I 2 


Seconds 

Leave 

Blank 


R sub 

Min 2 

Kilometers 

R sub 

Max 2 

Ki lometers 

Leave 

Blank 



DDDDDD 


DDDDDD 



DDDDDD 


DDDDDD 


Leave Blank 


R sub Min 3 


R sub Max 3 


Leave Blank 


4 


Leave Blank 


R sub Min 4 


R sub Max 4 


Seconds 


Kilometers 


Kilometers 


Seconds 


Kilometers 


Kilometers 
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Note: 1. The sets of minimum radial distance (R sub Min), maximum radial 
distance (R sub Max), and associated interval (I) given on this 
card control the interval at which Master Orbit Tape and Orbital 
Tape Format -3A output is computed. When the radial distance is 
between R sub Min 1 and R sub Max 1, the output interval will be 
I 1. Output will occur at interval I 2 for radial distances 
between R sub Min 2 and R sub Max 2, etc. No output will occur 
when the radial distance is outside all radial distance ranges 
given on the card. At least one set of I - R sub Min - R sub Max 
must be given. The rest of the card must be left blank after the 
last set. 

2. If the output interval is to be constant, only one set of 

I - R sub Min - R sub Max may bo given. R sub Min must be 000000 
and R sub Max must be 999999, so that all radial distances will be 
within this range and all output will be at interval I. 
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31-45 


46-60 


61-72 


A maximum o± 37 R.A.M.S data cards may be used. A blank card 
must follow the last data card. 


















































610504 1630 610504 1640 


3060 


00002 


611316104271418574510363004400 1961 Nil S-15 

1 1 R104 RUN TO GET M.O.T.# OR3A* AND REFINED WMAP OUTPUT 

0060 000000007500 0120 007501999999 
010503144236763610504144633323610505145029683 


Figure 3. Listing of Sample Input Data Cards 
3. Input Tape Formats 

Tape input to R 104 consists of one BCD tape and one binary tape, 
a. BCD Tape (see Figure 4) 

Each record on the BCD Solar Epheraeris Tape (Tables 1) contains 
a date and a corresponding solar posit on vector (in astro- 
nomical units). The solar position vector is referenced to an 
equatorial coordinate sy.‘ -:r ith the origin at the center of 
the earth, the x-axis in the direction of the vernal equinjx, 
the z-axis along the North Pole of the earth, and the y-axis 
forming a right-handed coordinate system. The time interval 
between consecutive records is one day. 


Table 1. BCD Solar Ephemeris Tape (TF) 


CHARACTER 

FORMAT 

DESCRIPTION 

1-8 

DDDDDDDD 

Date of Solar Vector: i 



1-4 

Year 



5-6 

Month 



7-8 

Day 

9-18 

SDDDDDDDDDS 

x-component of Solar Vector: 



9-10 

A.U. 



11 

Period ( .) 



12-18 

Fraction of A.U. 

19-28 

SDDDDDDDD 

y-component of Solar Vector: j 



19-20 

A.U. 



21 

Period ( .) 



22-28 

Fraction of A.U. 

29-38 

SDDDDDDDDD 

z-component of Solar Vector: 



29-30 

A.U. 



31 

Period ( .) 



32-38 

Fraction of A.U. 

39-71 


Blank 


72 

1 

Solar 

ephemeris tape identi- 



lication number 
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19610503*0. 7453720+0.6227900+0.270081 l 
19610504+0.73 i 9690*0. 6 3442 37*0.2751260 
19610505 *0.722 35* 3*0. 645 37 59*0. 280091 9 
1 96 10506*0. 710531 1+0.65714 36*0. Z 84 97 7 8 
196 10507*0. 69 85024* j ,66822 34 + O.2 8 970Z 0 
1 9610508 + 0.6862715 + 0.6/ 91123*0. 29450 3 4 
19610509*0. 67 3841 7+ C . 6 898067+ 0 . 299 1 406 
19610510*0.6612165*0. 700 }0 46 + 0. 30 3691 8 
1961051 1*0.648 4997*0. 7105995*0.3081560 
19610512+0.6363949+0. 72069x2+0. 312531 « 
1961051 3*0. t 222063+0. 7305756+0. 31 6H1 7« 
1 96) 05 14*0. 60 38 3 7 9 + 0. 740 2497*0. 32 '.Cl 2 7 
19610515*0. 5952939+0. 7497105+0.3251152 
19610516*0.5815786+0.7589553*0.3291243 
19610517*0.5676965+0. 7679815+0.3330387 
196 105 18+0. 55 3651 7+0. 776 78 66+0. 33685 74 
19610519 + 0.5 394489 + 0.7 85 46 82 + 0. 3405 79 4 
1 96 10 520*0. 52 -»0924 + 0. 7937242*0.3*^2034 
1 96 10 52 1*0. 5 105 86 7* 0.80 185 2 3*0. 34 7 72 89 
19610522+0.4959362+0.8097507+0. 351 1548 
19610523 + 0.481 1454 + 0, 81 7<*1 73 + 0.354 480 2 
19610524+0.466? 187+0. 82485 C5+0. 3577043 
19610525+0.4511607+0.8320483*0.3608264 
19610526+0.4359757+0. 8390094+0. 3638457 
196 105 27 +0.42 06682 +0.045 7 3^0+0.366 76 14 
19610528+0.4052425*0.8522148+0. 3695730 
19610529+0. 3897029+0.8584564+0. 3722799 
19610530*0. 3740536*0.8644552+0. 3748013 
19610531*0, 358298 9+0. 870 21 01+0. 3773768 
15610601*0. 3424428*0.9 75 71 96*0 . 3797656 
19610602*0, 3264994*0.8809823+0. 3820474 
19610603*0. 3104428*0.8859967*0. 384221 3 
19610604*0.2943073*0.890761 3*0. 3862869 
196106^5+0. 27 80870* 0.8952747+0. 3882434 
19610606+0.2617864*0.0995353*0. 3900904 
19610607*0. 2454 100*0. 903 54 15*0. 39182 70 
196 10608+0, 22 9 9623*0. 9072920*0, 3934529 
19610609*0.2 174401*0.910 78 55*0. 3949673 
19610610+0. 19 50 72 4* 0,91 4 0206+0, 3963699 
19610611+0. 1792402+0.9169962*0. 397*300 
19610612 + 0. 1625563*0. c 1971 15*0,3988375 
19610613*0. 1458260*0.9221655+0, 3999018 
19610614*0. 129054 3*0.924 35 7 7*0,400 052 7 
19610615+0. 1122462*0.9262874*0,4016099 
19610616*0.0954067+0.9279543*0.40241 33 
19610617*0.0795410+0.9293531*0.4030227 
19610618*0.0616540*0.9304906*0.40351 79 
19610619*0.0447507*0.931 3757+0,4038990 


| 

I 

j Figure 4. Listing of Sampxe BCD Solar Ephemerls Tape (TF) 

i 

* 

I 

1 b. Binary Tape (see Figure 5) 

Orbital Tape Forma t-1 (Table 2) consists of one binary title 
record followed by one or more data binary records. The numtex 
of data records on the tape is a function of the time period 
covered by the tape and of the interval between data „tems 
given in the data records. Following the last binary data rec- 
ord are two binary sentinel records. An end-of-file is the last 
record on the tape . 
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Table 2. Orbital Tape Format-1 (TEB) 


WORD NUMBER 

WORD CONTENTS 


Binary Title Record Format 

1 

Form of data identification = 76796291 

2-3 

Satellite identification 

4 

Date 

U.T. 

5 

Day Count of Year 

Start Time of Satellite 

6 

Seconds of Day 

| Data 

7 

Date 

U.T. 

8 

Day Count of Year 

End Time of Satellite 

9 

Seconds of Day 

Data 

10 

At, interval between 

satellite data items i”; seconds 

11-26 

Run identification data 

27 

Date 

Coordinate System 

28 

Day Count of Year 

Reference Data Time and Position 

29 

Apparent Sidereal Time in radians 

30-32 

Spares 


33 

*3 

(C. U. L. )~ s 

34 

% 

(C.U.L. r 3 

35 

Ki 

(C.U.L.)" 4 

36 

*5 

(C.U.L. )~ 5 

37 

J 

(c.u.L.r 3 

38 

H 

(C.U.L.)" 3 

39 

S 

(C.U.L.)" 4 

40 

L 

(C.U.L.)" 5 

41-79 

Spares 


* 80 

Cd, atmospheric drag parameter 

* 81 

Area of satellite in 

cm, 2 

* 82 

Mass of satellite in 

grams 

83-89 

Spares 


** 90 

Complementary perturbations indicator 


0= 1 indicates comp. 

pert, were used in determining orbit 


= 0 indicates comp. 

pert, were not used) 

* 91 

Lunar perturbations indicator 


0= 1 indicates lunar 

pert, were used in determining orbit 


=- 0 indicates lunar pert, were not used) 

* 92 

Solar perturbations indicator 


(= 1 indicates solar pert, were used in determining orbit 


= 0 indicates solar pert, were not used) 

93-100 

Spares 


101 

t 0 , epoch time 

(C.U.T.) 


112 






Table 2. Orbital Tape Format-1 (TEB) (cont.) 


WORD NUMBER 

WORD CONTENTS 


Binary Title Record Format 

102 

a, semi-major axis at 

t 0 (C.U.L.) 

103 

e, eccentricity at t 0 


104 

v , true anomaly at t c 

(radians) 

105 

X ) 

Satellite position 

106 

y ( 

vector r at t 0 (C.U*L.) 

107 

z > 


108 

* ) 

Satellite velocity 

109 

y [ 

vector r at t 0 (C. U. L. /C.U. T. ) 

1x0 

z ) 


111 

r, magnitude of r at t 

: 0 (C.U.L.) 

112 

r, magnitude of r at t 

; 0 (C.U.L. /C.U. T. ) 

113 

Angle § at t 0 

(radians) 

114 

M, lean anomaly at t 0 

(radians) 

115 

cn, orbital azimuth at 

t 0 (radians) 

116 

u), argument of perigee at t 0 (radians) 

117 

i, inclination at t 0 

(radians ) 

118 

Q, right ascension of 

ascending node at t, 0 (radians) 

119 

Satellite velocity vector angle at t 0 (radians) 

120 

n, mean motion at t 0 

(radians /C . U . T . ) 

121 

E, eccentric anomaly at t 0 (radians) 

122 

(i), rate of change of argument 


of perigee at t 0 

(radians/C. U.T. ) 

123 

Q, rate of change of R.A. of 


ascending node at t 0 

(radians/C. U.T.) 

124 

P, period at t 0 

(C.U. T, ) 

125 

Height of perigee at t 0 (C.U.L. ) 

126 

Height of apogee at t c 

(C.U.L.) 

127-130 

Spares 


**131-150 

t P >0’ Vl’ -'^p.lB' 

times of drag coefficients (C.U.T. ) 

**151-170 

n 2,0’ n 2,l’ • , * n 2 f 19* 

first-order drag coefficients 


( radians /C .U . T. 8 ) 

**171-190 

191 

n 3,0’ n 3,l* ‘ n 3,19 

Year (last 2 digits) 

second-order drag coefficients 
(radians /C.U.T. 3 ) 

192 

Month 


193 

Day 

Date and 

194 

Hour 

Time of Epoch 

195 

Minute 


196 

Seconds x 1000 


197 

Spare 


** 198 

Number of t 's in words 131-150 

p,q 

199 

Spare 
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Table 2. Orbital Tape Format-1 (TEB) (cont.) 


WORD NUMBER 

WORD CONTENTS 


Binary Title Record Format 

200 

• 

Indicator of theory used to compute orbit 
(= 1 indicates PE orbit generator 
= 2 indicates Gill Integration orbit generator 
= 3 indicates Brouwer orbit generator 
= 4 indicates HST orbit generator) 

201-350 

Spares 


Binary Data Record Format 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12-305 

306-350 


Date 

Day Count of Year 
Seconds of Day 


Time of first satellite data 
item = t 


At, interval between satellite data items in seconds 
Spare 


X 

Y 
Z 

X 

Y 
Z 


Satellite Position 
Vector in km. 


Satellite Velocity 
Vector in km. /sec. 


Satellite Data 
Item 


4P other Satellite data items at times t+ot, t+2At, 
t+3At, ...t+49At 

Spares 


1 

1 

Binary Sentinel Record Format 

1 

2-350 

99909999 

Irrelevant 


Notes: 

1. All words are in floating point form. 

2. Date = Day + 100 (Month + Year (100)). (Example: Feb. 10, 

1962 at 2 hours is recorded as 620210 in date of data, 41 in 
day count of year, and 7200 in seconds of day.) 
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Notes for Table 2 (Cont.) 


3. The satellite position vector is referenced to an equatorial 
coordinate system with the origin at the center of the earth, 
the x-axis in the direction of the vernal equinox, the z-axis 
along the North Pole of the earth, and the y-axis forming a 
right-handed coordinate system. 

4. Reference day data of apparent sidereal time is obtained from 
"The American Ephemeris and Nautical Almanac" for a given year. 

5. The last valid data item is followed by an item of 9's. If the 

last valid data item fills a record, a data binary record fol- 
lows that contains 9's in words 1-8. 9's are equal to 99999999 

in floating point. 

6. fe , Ka , K4 , and fe are respectively equal to D. Brouwer's 
notation of Re , A 3, k4 , and As for the 2nd, 3rd, 4th, and 
5th harmonics of the earth's potential. 

7. J, H, K, and L are respectively the notation used in the Gill 
Integration Subroutine for the 2nd, 3rd, 4th, and 5th harmonics 
of the earth's potential. 

8. If the Gill Integration orbit generator was used to compute the 
orbit, word 151 contains the first-order drag coefficient 

and word 152 contains the second-order drag coefficient p g , 

* Indicates a word which is relevant only if the Gill Integration 
orbit generator was used to compute the orbit. 

** Indicates a word which is relevant only if the PE or Brouwer 
orbit generators were used to compute the orbit. 
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-361290)6 

04 

-59? 704 16 

01 

-4240391 7 

0 1 

- t 6204990 

00- 

-46? 7 4 8 P l; 

04 

00301 

4739571 1 

04 

-36165244 

04 

-5677*784 

0 1 

-461 3506 7 

0! 

4 1 00 785 0 

-01 

RECORD 

MUMPER 00004 









00001 

61050400 

06 

12400000 

03 

640POOOO 

05 

60000^00 

0? 

6 1 050400 

06 

00006 

-496P2550 

04 

4461 04 f 9 

04 

-36000428 

04 

-64126 ,2 

01 

-4 767624 7 

01 

0001 1 

24107524 

00 

-5? 7674 73 

04 

41678218 

04 

-36876679 

04 

-5! *4008 ] 

01 

00016 

-50024961 

01 

4373711 l 

00 

-55761094 

04 

3R51 1 196 

04 

- 34^564? i 

1)4 

00021 

-484291 10 

01 

-521 78320 

01 

62941845 

OC 

-60676633 

04 

35420709 

C4 

00026 

-35122335 

0* 

-45405346 

01 

-541 *6957 

01 

P 16766P8 

00 

-61207651 

04 

00031 

32118809 

04 

-34577357 

04 

-42280966 

01 

— 66 Q 9PPP7 

01 

99098*00 

00 

000 36 

-63648496 

04 

28716906 

0 4 

-33924685 

04 

-39067690 

01 

-5746479? 

01 


Figure 5. Listing of Sample Orbital Tape Format-1 (TEB) (cont.) 



OOiK 1 

1 1 756 791 

01 

-65 ft 94 160 

04 

752270 79 

04 

-33167749 

04 

-35776906 

0 l 

000 w, 

-5HR36344 

01 

l 3464966 

01 

-67940631 

0 4 

21660410 

04 

-3? 31 0075 

04 

000*31 

-37419739 

01 

-60011B91 

01 

I5ltl 337 

01 

-6978361 1 

04 

1 8079306 

04 

ooo56 

- 3 1 356<»45 

04 

-79005940 

01 

-60995 7 35 

0 1 

1 6697687 

01 

-71470789 

04 

0006 L 

i 4 344RR 1 

04 

-30308342 

04 

-25546821 

01 

-6 1 788990 

01 

1870658 ^ 

01 

00066 

- 7? D 4fl386 

04 

106 1 fl6 3 7 

04 

-79 i 77794 

04 

-??06 16R3 

Ot 

-67393931 

01 

0007] 

1 966071 9 

01 

- 74065936 

04 

68614791 

03 

-77951 74 1 

04 

- 1 P579P95 

01 

00076 

-678 13107 

01 

? 1 02 30 7 7 

01 

-75071607 

04 

3084 771 3 

03 

-7665105? 

04 

OOOP1 

- 1 4 >90472 

01 

-630492 8 7 

01 

22371660 

01 

-76R64679 

04 

-70108996 

0? 

00OP6 

-76? 74548 

04 

-l 1 441699 

01 

-6 3105456 

0 1 

7 3545 1 1 l 


-7644469 3 

04 

oon 1 1 

-4484616? 

0 3 

-23827077 

04 

-78976785 

oc 

-r 7984 734 

01 

74691675 

ot 

00006 

-768 1 1948 

0 4 

-82556673 

03 

-7731 315? 

04 

• 4 3 5 0 9 C 6 6 

00 

-67690415 

01 

00101 

26760700 

01 

-76967 l 1 3 

04 

- 1 7003949 

04 

-7073 ? 4 7 7 

04 

-8741 9ft 80- 

‘01 

00106 

-67275884 

01 

76749664 

01 

-7691 1314 

0 ^ 

- 1 6 71935? 

04 

-1 910483P 

04 

on l 1 1 

?6R 006 35 

00 

-61694633 

01 

77658773 

01 

-766461 1 t 

04 

- 19391968 

D4 

00116 

-1 747007? 

04 

61647155 

00 

-60800774 

0 1 

78484-955 

01 

-761 M4 35 

04 

00121 

- 7301 2497 

04 

- 1 56878 79 

04 

95931897 

oc 

-69046 1 84 

01 

79? 33474 

01 

00176 

- 7549676ft 

04 

-26670778 

04 

-1 391 364? 

0 4 

1 798808? 

01 

-5ft 736401 

01 

001 31 

7 9R97370 

01 

-74615866 

04 

-30057805 

04 

- 1 7101 P64 

04 

16333726 

01 

001 *16 

-574 745? 7 

01 

304 7P293 

01 

-73536906 

04 

- 33464697 

94 

- 1075781 3 

04 

00141 

19677263 

01 

-5606436ft 

01 

30976698 

01 

-77267 7 43 

04 

- 36 7,87620 

04 

00146 

-P 3R6446 3 

03 

77849004 

01 

-54509775 

01 

3138916? 

01 

-7079636 7 

04 

001 Si 

-40003056 

04 

-649? 78 ? 1 

0 3 

7600741ft 

0 1 

-62814502 

01 

31718379 

01 

00156 

-6914 3020 

04 

-43 1 1 765 7 

04 

-45819111 

03 

7909 1539 

Oi 

-509P76 30 

01 

00161 

3)96, 900 

01 

-67 306 78 9 

04 

-4511 fl64 7 

04 

-2668709? 

03 

37095014 

C! 

00166 

-4901 7 R90 

01 

371 77643 

01 

~l j 7 9 3 0 4 3 

04 

-48997568 

04 

-72866 793 

0? 

00171 

360 1 3R64 

01 

-469247 ?2 

01 

37197336 

01 

-63106939 

04 

-517471 36 

04 

001 7c, 

1 7032945 

0 3 

37840778 

01 

-44707064 

0 1 

371R6P64 

n 

-60754135 

04 

001 8 l 

-54360023 

04 

31 370 71 4 

03 

4C 5694 1 1 

01 

-42369100 

o; 

3709114? 

01 

001 °6 

-58240634 

0 4 

-668791 3? 

04 

60675548 

03 

43195633 

91 

-399151 14 

01 

00191 

31910134 

01 

-666 72806 

04 

-69147617 

04 

69696079 

03 

45713371 

01 

00106 

- 37349529 

01 

3164386? 

01 

-57757010 

04 

-6 1 30 7148 

04 

8P48 32 l 8 

0) 

00701 

4ft 1 1 71 36 

01 

-346 76561 

01 

31297362 

01 

-49800855 

04 

-63306979 

04 

00706 

10713196 

04 

504 009 PO 

ot 

-31901432 

01 

30P55R46 

01 

-4671 1400 

04 

0071 1 

-661 3535? 

04 

1 754933? 

04 

575595) 7 

01 

-?90?°67? 

01 

30 3 344 ft 3 

01 

007 16 

-4 349634? 

04 

-66786645 

04 

1 435 164*1 

04 

6458 ( 1 30 

01 

-26063786 

01 

00771 

79778659 

Cl 

-40163696 

04 

-o8?6 1 167 

0 4 

1611 5066 

04 

56478198 

01 

00776 

-7 ?o 1 0454 

01 

79038431 

01 

-36771838 

04 

-69548125 

04 

1 7 8 34 56 7 

0 4 

007 31 

5P2770R? 

01 

-1 9 p 75657 

01 

7 '64 5 5 7 

01 

- 331 79087 

04 

-70644 77 l 

04 

007 3 6 

1 9605794 

0 4 

59ft?P?oft 

01 

-1 6c6402? 

0 1 

274C738? 

01 

-74545221 

04 

0074 1 

-71646473 

04 

211 2 1 ?44 

04 

612758^8 

01 

- 1 3382323 

01 

26467765 

01 

00746 

-7587974ft 

0 4 

-7274931 7 

04 

77679755 

04 

67564704 

01 

-10036376 

01 

on?s i 

764464 l 7 

01 

-2704091 4 

04 

-77749635 

04 

2 4 l 7 3 PS 2 

04 

63687765 

01 

00756 

-66377399 

90 

74344? 74 

0 1 

-1819024? 

04 

-73044 i 7ft 

04 

7559942° 

04 

00261 

64640R79 

01 

-31 78766 3 

00 

23167477 

01 

-14787636 

04 

-73J )01 1? 

04 

00266 

7696 1733 

04 

65417962 

01 

31978259-0 1 

71907154 

01 

- 1 034384 4 

04 

00? M 

- 7 300606 1 

04 

7877609 ) 

04 

66013457 

01 

3 ftS 3 7 ?4C 

00 

205649 31 

01 

00776 

-63694999 

03 

-776670*0 

04 

79418086 

04 

66471990 

01 

7415872° 

or 

0078 1 

19162788 

0 1 

-73767976 

03 

-72114710 

04 

30572989 

04 

666 381 50 

01 

007 HS 

1 C 9 9 6 9 5 3 

01 

i 7666440 

01 

16779795 

03 

-71347176 

04 

31536593 

04 

0079 l 

6 6 6 6 6 ft 3 5 

01 

14588)1? 

01 

16109444 

01 

661 7813? 

03 

-70)6409? 

04 

00296 

32464708 

04 

66473064 

ot 

i 8 180464 

01 

14481762 

01 

95954655 

0) 

00301 

-*9165710 

04 

33773791 

04 

66082? 30 

Cl 

7176333ft 

01 

1 ?7°3197 

r i 

fiFCOPP 

00005 









00001 

6 1 060400 

06 

1 7 4 0 0 0 C 0 

0) 

67800000 

05 

6 OOOOOOC 

0? 

61050400 

06 

00006 

1 354 333 3 

04 

-67757897 

04 

33988486 

04 

66479850 

01 

7 6 ) ? 64 1 0 

Ot 

000! 1 

1 1037R50 

01 

99999959 

08 

99999999 

08 

99999999 

Oft 

99999999 

08 

00016 

>9999999 

0 8 

99999999 

Oft 

-55761094 

04 

38611196 

04 

- 355564? > 

04 

000 7 1 

- 4 ft 4 ? 9 1 1 0 

01 

-571 78870 

01 

67941845 

OC 

-5857663 ) 

04 

35470789 

04 

000 76 

-35177335 

04 

-45405346 

01 

-54136957 

0 1 

ft 1676688 

00 

-61 20 765 l 

04 

00031 

3? 1 1 8809 

04 

-34577367 

04 

-47280966 

01 

-S589B8P 1 

01 

99898380 

oc 

00036 

-6 364 8^96 

04 

78716986 

04 

-33974686 

04 

- 39067690 

01 

-5? 464 79? 

01 

0004 i 

11 7 C 6 79 1 

01 

-65894160 

04 

76777079 

0 4 

- 3 31 6 7 749 

U4 

- <6 f 1 6906 

OY 

00046 

-6flR35364 

0 1 

1 3464966 

01 

-67940631 

04 

21660410 

94 

- 37 310076 

04 

00061 

- 374 1 9239 

01 

-6001 1891 

01 

16111337 

01 

-7.978 351 7 

04 

1 8 029306 

04 

000 S 6 

- 3 1 366645 

04 

-79005940 

01 

-60995735 

0 l 

1-669 268? 

01 

-714 '078 > 

04 

000? i 

14)4488) 

04 

- 30308*4? 

04 

-75546821 

01 

-61 788990 

01 

IP 20658 4 

01 

0 C 0 i 6 


04 

106 185"*? 

04 

— 7 9177794 

04 

-27051683 

01 

-6? 3 >39 3 1 

01 

0007 1 

196-0 7 1 9 

01 

- 740659 36 

04 

68614791 

03 

-27951741 

04 

- 1 8679895 

01 

00076 

-6781 310? 

01 

71073077 

01 

-75071607 

04 

30847713 

03 

-7665 | 05? 

04 

OOOP l 

- 1 4 f J9 ()4 7? 

ot 

-63049287 

01 

72371660 

01 

- 76864679 

04 

- 7010899 5 

0? 

0 0 0 ft 6 

-7677' 648 

04 

-1 1441699 

01 

-63105456 

0 1 

23545111 

01 

- 764446 1 3 

04 

00091 

- 4 4 m 4 b 1 6 7 

0 3 

-7 387 70 77 

04 

-78976785 

00 

-67984 7 34 

Ot 

74691675 

01 

0009/, 

- 7681 1948 

04 

-82556673 

03 

-7731315? 

04 

-43509066 

00 

-6769041 6 

01 

00101 

76760200 

0! 

-769671 1 3 

04 

-17003949 

04 

-7073 74 7 7 

04 

-87419880- 

-01 

00106 

-67776884 

01 

76 749564 

01 

-76911314 

04 

-1 671935? 

04 

-191040)8 

04 

0011 1 

76800636 

00 

-61 5 >46 3 3 

01 

2 7668773 

01 

- 766461 1 1 

04 

-19 391968 

04 


Figure 5. Listing of Sample Orbital Tape Foruat-1 (TEB) (cont.) 
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-1 74700 7? 04 
-730174 92 04 
- 75495768 04 
79897370 01 
-67474577 01 
19677763 01 
-83R7-4463 03 
-4000 30!* 5 04 
•f 9L43C70 0. 

31962900 01 
-4901 7890 01 

3 501 38 64 01 
1 70 3 794 5 0 3 

-54340023 04 
-58740634 04 
31910134 01 
- 373 * 9*29 01 

4 8 1 1 7 1 3 6 0 1 

1071319 * 04 
-6513535? 04 
-4 349634? 04 
29778559 01 
-23010454 01 
58277082 01 
19505794 04 
-71546473 04 
-75879248 04 
254464 1701 
-663? 73 ? 9 00 
64640879 01 
76951733 04 
-7 300 50 5 l 04 
-6 3694999 () 3 
19152288 01 
1 099695 » 01 
66656835 01 
3746470 8 04 
-69165710 04 


61547156 00 
-1 56878 79 04 
-26570778 0“ 
-74615866 0' 
30478293 0 
-56064358 0i 
27849004 01 
-64927861 03 
-431 1 7667 04 
-67306789 04 
37127643 01 
-4697477? 01 
37840778 0» 
31320714 03 
-568791 32 0* 

- 555 7?8C 5 04 
3164386? 01 

-.346 7656 1 0 1 
504009PO 01 
125593*7 04 
-66788545 04 
-40163656 04 
?90384*1 01 
-19875597 01 
59828788 01 
71 1 21944 04 

- 777493 1 7 04 
- 2 1 040 J 1 4 04 

?4344?74 01 
-31 782663 00 
654 1 795? 0 1 
2822609? 04 
-72667030 04 
-73767976 01 
l 7666440 0 l 
14588312 01 
66473094 0’ 
33773791 04 


-60800774 Oi 
95931897 0C 
-1391 3542 04 
-30057805 04 
-73536906 04 
30975698 01 
'54509725 01 
26007418 01 
-45R191 1103 

- 4611864? 04 

' 793043 04 

32197336 01 
'44707064 01 
4 C 56 94 1 1 r 
50525548 _ 

-59147617 04 
-57757. 0 O'- 

.3129736? J1 
-3 190143? 0 . 
52559517 01 
1 4351 S 44 C 4 
-69261 167 04 
-36721838 04 
2826455? 01 
-1666407? 01 
61275828 01 
72679755 04 
-72749635 04 
-1819024? 04 
2 3162427 01 
31978259-01 
66013457 01 
294(8086 04 

- 771 14 71 0 04 
16779795 03 
16109444 01 
18180454 ul 
66087730 01 


78486955 01 
■59846 1 84 01 
1790H0P? 01 
-12101854 04 
-33464697 04 
■72762443 04 

31389162 01 
-52814502 Ul 
*9091539 01 
-76Se7C4? 03 
-48997568 04 
-63106939 04 
32186864 01 
' 7369100 01 
-9195631 01 
^9696079 03 
-61309148 04 
-49800855 04 
30955846 01 
-2902867? 01 
545871 30 01 
1611 5 C 66 04 
-69548125 04 
- > 31 7 90 R 7 C 4 
274073P? 01 
-13387323 01 
62564204 01 
241 7385? 04 
-7304417R 04 
-14787636 04 
71902154 01 
38537740 00 
66471990 01 
30522989 04 
-71347176 04 
5617839? 03 
1446376? 01 
2 1 76 3 3 38 01 


- 76 1 7 34 3 5 04 
79733426 01 

-58736401 01 
16333226 01 
-1075781 3 04 
-36787670 04 
-707?6387 04 
3 1 7 1 9379 0 1 
-509876 30 01 
37095814 01 
-77066793 0? 
-617471 36 04 
-60764135 04 
37091 14? 01 
-399151 14 01 
45713321 01 
8 8 4 P 321 8 03 
-63306979 04 
-4671 1400 04 
30334403 01 
-26043286 01 
66478198 01 
1 78 3456? 94 
-70644771 04 

- 79 546?? 1 04 
76467765 01 

- 1 0 C 3 o 3 76 01 
63687765 01 
75599428 04 

- 73 1 301 1 7 04 
—103438*9 04 

2057.49 31 01 
74168728 00 
67-6 38160 01 
31536593 04 

- 70 36409? 04 
95964666 03 
1 7 ' 9*1 9 * 01 


PrCORP NU*8H > PJ006 F NO SfNTINFI 99999999 
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Figure 5. Listing of Sample Orbital Tape Format- 1 (TEB) (cont,) 
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C. SET UP AND RUNNING PROCEDURE 


1 . Requirements 

IBM 7094 (32K, 3-channel), six tape drives, on-line card reader, and 
on-line printer. 

2. Tape Assignments 


Table 3. Tape Assignments 


ASSIGNMENT 

DESCRIPTION 

DISPOSITION 

A-l 

System Tape 

File 

A-5 

Blank for Master Orbit Tape - (TI) 

List Program Control 
File or Release 

B-2 

Blank, Orbital Tape Format-3A (if used) 
or Satellite Position and Real Field 
Data Tape (if used) - (TCB) 

Fi le 

B-3 

Orbital Tape Format-1 - (TEE) 

File 

B-4 

BCD Solar Ephemeris Tape (used only if 
Orbital Tape Format-3A is used) - (TF) 

File 

C-2 

Blank for BCD Refined World Map Tape 

List Program Control 


(if used) - (TD) 

! .... _ 

File or Release 


3 . Card Reader 

Reads input data cards; uses standard (Col. 1-72) SHARE board. 


4 . On-Line Printer 

No special paper, loop, or board requirements. 

a. Normal Messages - Refer to Section III D1 

b. Error Messages - Refer to Section m D1 

5 . On-Line P unch 
Not used. 

6 . Con sole 

a . Sense Switches - Not used . 

b. Input Keys - Refer to AOPB Systems Manual if this is not the 
first program on the system tape. 

7 . To Start 

CLEAR and LOAD TAPE. 

8 . Program Stops 

a. Normal Stop - 00002 

b. Error Stop - 00003 

c. Emergency Transfer - (06100) ^ Dumps locations 00000 through 
07100 in floating point decimal form on tape unit A-5. No end- 
of-file is written after the dump. 
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D . OUTPUT 


1 . On-Line Printer 

The on-line printer is used uo write run identification data and 
monitor data, and to describe the nature and cause of a program stop. There 
are no special board, loop, or paper requirements. A sample on-line printout 
is illustrated in Figure 6 . 

a . Normal Printouts 

The normal program printouts are: 

(1) Initial Change of Constants cards, if any 

(2) Name of routine and identification of orbit theory used 

(3) Indication that output is to include Refined World Map 
data and identification of the orbit theory used (occurs 
only if output includes a Refined World Map BCD tape) 

(4) Satellite identification number and name 

(5) Start and end dates and times of run 

(6) Columns 9-72 of Run Identification card 

(7) Final Change of Constants cards, if any 

(8) Heading line, followed by a line giving Refined World Map 
data for the start time of the run (occurs only if output 
includes a Refined World Map BCD tape) 

(9) Heading line, followed by lines giving Refined World Map 
data for the first ascending node of the run and for 
every n** 1 ascending node thereafter. (Nominal value of 
n = 10) (Occurs only if output includes a Refined World 
Map BCD tape). 

(10) End-of-run indication 

b. Error Printouts 

If an error stop of 00003 occurs, one of the following eigl t 

messages will be printed. 

(1) FIRST WORD OF TITLE RECORD ON TE (NORMALLY B-3) 

IS NOT 0RB1 

The tape on logical unit E does not have the format of 
an Orbital Tape Format-1. Check the label and density 
of the tape and restart the run. 


(2) REF, DATE ON ORB1 TAPE ON TE DOES NOT EQUAL DATE 
ON SAT. ID. CARD 

The reference date on the Orbital Tape Format- 1 on logical 
unit E is not equal to the reference date on tne satellite 
identification card. Check the label on the tape and the 
order of the input cards. 

(3) START TIME OF FUN IS TOO EARLY FOR 0RB1 TAPE ON 
TE (NORMALLY B-3) 

The start time of the run must be equal to or later than 
+ he time of the third data item on the Orbital Tape 
Format-1 . The start time of the run must be changed or 
the tape must be remade so that this condition is met. 

(4) END TIME OF RUN IS TOO LATE FOR 0RB1 TAPE ON TE 
(NORMALLY B-3) 

The end time of the run must be equal to or earlier than 
the time of the third from last data item on the Orbital 
Tape Format-1 . The end time of the run must, be changed 
or the tape must be remade so that this condition is met . 

(5) WRONG IP. ON SOLAR PERT. TAPE ON TF (NORMALLY B-4) 

The trpe on logical unit F does not have the format of a 
BCD Solar Ephemeris tape. Check the label and density 
of the tape and restart the run . 

(6) TAPE CHECK. ON BINARY 0RB1 TAPE ON TE (NORMALLY B<-3) 

Ten unsuccessful attempts have been made to read the next 
record on the Orbital Tape Format- 1 on logical unit E 
without a redundancy error. Move the tape to another 
drive and restart the run, or remake the tape. 

(7) TAPE CHECK ON BCD SOLAR PERTURBATIONS TAPE ON TF 
(NORMALLY B-4) 

Ten unsuccessful attempts have been made to read the next 
record on the Solar Ephemeris tape on logical unit F with- 
out a redundancy error . Move the tape to another drive 
and restart the run, or remake the tape. 

(8) NO R.A.M.S. DATA IN TABLE FOR J. D, = xxxx 

Correct the R.A.M.S. data cards so that they include 
R.A.M.S. data for all output dates. 
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MASTER ORBIT TAPE -BRWR.T. 

REFINED WORLD MAP - BRWA < T 
61131 » 1^61 NU $-15 
FROM 6 105C4 1630 TQ olC504 184C 
R 106 RUN TO GET M.O.T., 0R3A, AND REFINED WRAP OUTPUT 


THE PASi NUMBER COMPUTEO FOR THE START TIME OF THIS. MAP IS 00002 
DATE 610504 

HR MI LONG.OEG LAT .DEG 1C00H.KM 
16 30 086.3T55-12.6976 01719183 


ASCENDING NCOE 


YRMOOA HR MI SS.SS PASS LONG.OEG LAT. DEG 1C00H.KM 
610504 16 . , '2.68 000003 105.9811 00.0000 01704485 


THE END 


I 


Figure 6 


Sample On-Line Printout 
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2 . Output Tape Formats 

Tape output consists of two BCD tapes and two binary tapes. 

a . BCD Tapes 

Sample listings of the Master Orbit Tape (TI), and the Refined 
World Map Tape (TD) are given in Figures 7 and 8, respectively. 

b . Binary Tape s 

Binary tape output consists of either Orbital Tape Format-3A or 
the Satellite Position and Real Field Tape on TC. The formats 
of the two tapes are described in Tables 4 and 5,* respectively . 
Sample listings are given in Figures 9 and 10. Each of the 
binary tapes consists of one binary title record, followed by 
one or more binary data records . The number of data records on 
the tape is a function of the time period covered by the tape 
and the intervals between the data items given in che data rec- 
ords. Following the last binary data record are two binary 
sentinel records. An end-of-file is the last record on the 
tape . 


124 



MASTER ORBIT TAPt -BRWfc.T. 
61131 , 1961 NU $-15 

FROM ol05C4 1630 TO 610504 1840 

RIC4 RtN TO GET M • 0* T • t 0R3A, 
AND REFINED wMAP OUTPUT 


Rt34 RUN TO GET M.C.T., GR3A, AND REFINED RMAP OUTPUT 

ID. NO. REF. DATE LAMBDA HMS TAU OMS SATELLITE 

61131 Ol 04 27 14 18 57450 036 30 04399 1961 NU S-15 

DATA FROM ORBITAL TAPE TITLE RECORD 

EPOCH 61 05 04 14 26 OCOOO 

X Y l X DOT Y DOT l UUT 

-87110456 00 60902777 00-56060203 00-61297063 00-65954610 00 72596790-01 

A t I M OMEGA THE I A 

11767662 01 66561016-01 50264304 OQ 17126512 Ul 30836131 01 38 10 Be i 2 01 

DRAG EFFECTS ?(P,Q) N(2,Q) N(3,Q) 

610504 142600 12366977-07 00000000 00 

EARTH CONSTANTS MU ROTATION RADIUS FLATNESS 

lOOOOOOC 01 56635124-01 ICOOOOOO 01 33670033-02 

HARMONICS 

K2 K3 K4 K5 

54109499-03 22049999-05 79612497-06 23199999-C6 

J H K L 

16232049-02 00000000 OC OCOOOCOO 00 00000000 00 

00060 000000 007500 00120 007501 999999 00000 000000 000000 00000 OOUOOO 000000 


MAGNETIC FIELO COEFFICIENTS 

JENSEN AND CAIN COEFFICIENTS FOR I960 


Figure 7. Listing of Sample Master Orbit Tape (TI) 
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DATE 

line GEGCtNf R IC 


INER. 

VEL.VECICR 


GE08AG. 

KEAL F. 

61131 1961 124 

P.OOl 

WOO 

HHW LONG. 

LAT. 

OISf. 

R.A. 

R.A. DfcCL. 

• V£ L • 

AO 

LAT. 

L 

8 

R/ttU 

A. A. 

oecL. 

0-04 

16)0.0 004.326- 

12 . 6)2 

008097 

194.14 

275.7 24.9 

06.7 

01.50- 

23.1 

ul.433 

2056** 

01.942 

187.8 

31. 8 

0^04 

16)2.0 089. 072 - 

10.077 

0C8124 

199.34 

282.) 26.) 

06.7 

01.46- 

21.0 

01.301 

20202 

01.707 

194.0 

40.2 

050 V 

16)4.0 093.605- 

'0 7. % 56 

008145 

204.42 

289.2 27.5 

06.7 

01.42- 

18./ 

01.334 

19778 

01.508 

200. 1 

47.3 

05U4 

1636.0 098.107- 

-04* 790 

008156 

209.43 

296.1 28.) 

06.7 

01. 39- 

16.3 

01.294 

19334 

01.344 

2J6.2 

55.0 

0504 

1638.0 102.558- 

-02,09) 

008164 

214.38 

)03. 1 28. 7 

06.7 

01 . )6- 

13.8 

OK, '50 

18911 

01.214 

212.4 

63.2 

0504 

1640.0 106.990 

00.6 l« 

OCH 162 

219.31 

310.1 28.8 

06. 7 

01.33- 

-11.2 

01.234 

18551 

01.113 

219.0 

71. a 

0504 

1642.0 111.433 

02.327 

008153 

224.76 

317.1 28.5 

06.7 

01,31- 

06.5 

01.215 

18289 

01.05? 

227.0 

80.7 

0504 

J64V.0 115.919 

06.021 

006136 

229.25 

324.1 27.9 

06.7 

01.29- 

05. 7 

01.20 3 

16150 

01.013 

299.3 

09.2 

0504 

1646.0 120.48'^ 

08.681 

0C8112 

234.31 

331.0 26.9 

06. 7 

01.28- 

03.0 

01.198 

16144 

01.000 

048.) 

01.) 

0504 

1648.0 125.147 

11.251 

0C6082 

239.48 

337.7 25.6 

06*8 

01.27 

00.2 

01.199 

18266 

01.009 

056.4 

72.0 

0504 

1650.0 129.952 

» 3.8 30 

008044 

244.78 

344.) 23.9 

06.8 

01.26 

02.6 

01.205 

18*00 

01.039 

062.8 

64. 7 

0504 

1652.0 134.928 

16.277 

008000 

250.26 

350. 8 22.0 

06.8 

01.27 

05.4 

01.216 

18825 

01.085 

066.7 

>7.2 

0504 

1654,0 140.105 

18.606 

007950 

245. 9* 

357.1 19.9 

06.9 

01.27 

08.2 

01.230 

19220 

01.147 

074.4 

50.3 

0504 

1656.0 145.512 

20.787 

007894 

261.85 

003.3 17.5 

C6.9 

01.28 

10.9 

01.247 

19669 

01.224 

079.9 

44.1 

0504 

1658. C 151.177 

22.787 

007833 

268.01 

009.) 14.9 

07.0 

01.30 

13.6 

01.267 

20168 

01.318 

085.5 

38.4 

0504 

1700.0 157. 17 

24.570 

007768 

274.45 

015.3 12.1 

07.0 

01.32 

16.1 

01.290 

20721 

01.429 

091.0 

33.) 

0504 

1702.0 163. J46 

26.095 

007698 

281.18 

021.1 09.1 

07.1 

01.34 

18.6 

01.315 

21346 

01.559 

096.7 

28.6 

0504 

1704.0 169.862 

27.319 

007626 

288.20 

026.9 06.1 

07.2 

01.37 

20.8 

01.342 

22062 

01.711 

102.6 

24.5 

0504 

1706.0 176.652 

28.198 

007552 

295.49 

032.7 03.0 

07.2 

01.39 

22.6 

01.369 

22686 

01.883 

108.8 

20.9 

0*504 

1708.0-176.317 

28.690 

007476 

303.03 

0)8-5 00.2 

07.3 

01.42 

24.6 

01.393 

23825 

02.068 

115.4 

18. 1 

0504 

1709. 0-172. 724 

28.7 79 

007438 

306.87 

04 * .5-01.9 

07.4 

01.43 

25.4 

01.404 

24336 

02.163 

118. 9 

17.0 

0504 

1710-0—169.089 

28.759 

00740C 

3lQ.ro 

n* .*£>3.5 

07.4 

01.44 

26.1 

01.413 

24669 

02.253 

132.5 

16.1 

0504 

1711. 0-165. 420 

28.625 

007363 

314.67 

-05.1 

07*4 

01.45 

26.7 

01.420 

25420 

02.3)7 

126.1 

16.5 

0504 

1712.0- 161. 725 

28.3 76 

007325 

318.62 

.4-06.7 

07.5 

01.45 

27.2 

01.425 

25983 

02.412 

129.9 

15.1 

0504 

1713.0-158.015 

28.0C9 

007288 

322.58 

053.5-08.3 

07.5 

01.45 

27.6 

01.427 

26550 

02.474 

133.7 

15.0 

0504 

1714.0-154.293 

27.524 

007252 

326.55 

056.6-09.9 

07.5 

01.45 

27.9 

01.425 

27111 

02.519 

137.5 

15.3 

0504 

1715.0-150.572 

26.921 

007217 

330.53 

059.7-11.4 

07.6 

01.45 

28.0 

01.421 

2 7656 

02.545 

141.5 

15.6 

0504 

1716.0-146.860 

26.2C0 

007182 

334.49 

062.9-13.0 

07.6 

01.45 

28.1 

01.413 

281/5 

02.551 

145.4 

16.6 

0504 

1717.0-143.162 

25.363 

0C7149 

338.44 

066.1-14.5 

07.6 

01.44 

28.0 

01.402 

28656 

02.534 

149.3 

17. 7 

0504 

1718. 0-139. 487 

24.413 

0C7116 

342.36 

069.4-16.0 

07.7 

01.43 

27.8 

01.388 

29088 

02.496 

153.3 

19.2 

0504 

1719. 0-135. 840 

23.353 

007085 

346.26 

072.8-17.4 

07.7 

01.41 

27.5 

0:> .371 

*9460 

02.438 

157.2 

20.9 

0504 

1720.0-132.224 

22.18R 

007056 

350.13 

076*2-16.8 

07.7 

01.39 

27.1 

01.352 

29762 

02.36? 

161.1 

22.9 

0504 

1721.0-128.643 

2w.923 

007028 

353.96 

079.7-20.1 

07.8 

01.38 

26.5 

01. 3)2 

29987 

02.27? 

164.9 

25.2 

0504 

1722.0-125.100 

19.562 

007002 

357.75 

083*3-21.3 

07.8 

01.35 

25.8 

01.309 

30128 

02.170 

168.6 

27.6 

0504 

1723. 0-121. 596 

18.113 

006978 

001.5! 

086.9-22.5 

07*8 

01.33 

25.0 

01.287 

30183 

02.06? 

172.3 

30.7 

0504 

1724.0-118.130 

16.582 

006956 

005.22 

090*7-23.6 

07*8 

01.31 

24.1 

01.263 

30150 

01.951 

175.8 

33.8 

0504 

1725.0-114.703 

14.976 

006936 

008.90 

094.5-24.6 

07.9 

01.28 

23.0 

01.241 

30033 

01.841 

179.2 

37.1 

0504 

1726.0-111.311 

13.303 

006918 

012.54 

098*4-25.5 

07.9 

01.26 

21.9 

01.219 

29835 

01. 735 

182.5 

40.6 

0504 

1727.0-107.953 

11.570 

006903 

016.15 

102.3-26.4 

07.9 

01.24 

20.6 

01.199 

29561 

01.634 

185.6 

44.3 

0504 

1728.0-104.626 

09.785 

006890 

019.73 

106*3-27.1 

07.9 

01.21 

19.3 

01.181 

29218 

01.543 

188.4 

48.2 

0504 

1729.0-101.325 

07.957 

006879 

023.28 

110.4-27.7 

07.9 

Gi.19 

17.9 

01. 164 

28812 

01.459 

• 0 • * 

a 7a. a 

52.1 

0504 

1730.0-098.046 

06.094 

006671 

026.01 

114*5-28.1 

07.9 

01.17 

16.4 

01.151 

28346 

01.386 

193.6 

56.1 

0504 

1731.0-094.785 

04.2C4 

006866 

030.32 

1 18.6-28.5 

07.9 

01.15 

14.8 

01.140 

27825 

01.322 

195.7 

u0.2 

0504 

1732.0-091.537 

02.296 

006863 

033.82 

122.8-28.7 

07.9 

01.13 

13.2 

01.132 

27249 

01.267 

197.7 

64.3 

0504 

1733.0-088.297 

00.3/9 

006863 

037.31 

126.9-28.8 

07.9 

01.12 

11.5 

01.126 

26621 

01.220 

199.2 

68.4 

0504 

1734.0-085.060- 

-01.5)8 

006865 

040.80 

131.1-28.8 

07.9 

01.11 

09.8 

01.123 

25942 

01.179 

200.3 

72 ,5 

0504 

1735.0-081.820- 

*03.449 

006870 

044.29 

135.3-26.6 

07.9 

01. 10 

08.1 

01.12? 

25218 

01.144 

200.6 

76.8 


Figure 7. Listing of Sample Master Orbit Tape (TI) (cont.) 
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n ATE 
*HUU 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
050‘# 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
C504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0504 
0S04 


TIME GfcOCEN TRIG 
HH MM luNG. LAT. 

17 36 .0- 0/8. 5/2-05.34? 

1737.0- 0/5.313-07.7P 

1738.0- 072.0i6-09.04/ 

1739.0- 068. 73b- 10. 841 
1 7 40. 0-065 * 4 1 <i -12.586 

1741.0- 062.06^-14.274 

1742.0- 038.6/8-15.89/ 
174 1.0- 055. 260-17. 4 49 
17^4.0-051.808-18.921 

1745.0- 048. 320-20. 3C9 

1746.0- 044.797-21.605 

1747. 0- 041. 241-22. 8C5 

1748. 0- 03/. 654-23. 904 

1 749. 0- 034. 04 1-24. 8 S7 

1750.0- 030.405-25.780 

1751.0- 026. 753-2t>. 557 

1752. 0- 023. 091-27. 21C 

1753.0- 019.425-27.757 

1754.0- 015.765-28. 1 80 

1755. 0- 012. 117-28. 453 

1756.0- 008.490-28.692 

1757.0- 004.892-28.780 
I 758.0-001.331-28.759 

1800.0 005. 655-28.406 

1802.0 012.420-27.666 

1804.0 018.931-26.576 

1806.0 025.169-23.177 

1808.0 031.130-23.51! 

1810.0 036.822-21.617 

1817.0 042.261-19.530 

1014.0 047.470-17.284 

1816.0 052.476-14.907 

1818.0 057.308-12.426 

1020.0 061.998-09.86? 

1822.0 066-576-07.236 

1824.0 0/1.074-04.565 

1826.0 075.523-01.866 

1828.0 079.954 00.845 

1830.0 084.399 03.353 

1832.0 088.888 06.243 

1034.0 093.453 00.898 

1836.0 098.125 11.501 

1838.0 102.938 14.032 

1 840. 0 107 . 97 ? 16.467 



INER. 

VEL. VECTOR 


GEOPAG. 

REAL F. 

611M 1961 124 

DIST. 

R.A. 

R.A. DECL. 

. VfcL. 

KO 1 AT. 

E 

B 

H/HG 

R.A. 

006878 

047.79 

139.4-28.3 

07.9 

01.09 06.3 

01.124 

2446/ 

01.113 

190.7 

0C6 38R 

051.30 

143.6-27.9 

07.9 

01.09 04.5 

01.127 

2 3b 70 

01-086 

IBM. 3 

006901 

054.83 

14/. 6-27. 4 

07.9 

01.08 02-7 

01.1 il 

22073 

01 .Of>2 

110.8 

006916 

050.38 

151. 7-26. / 

07.9 

01.08 Ol.C 

01.06 

22086 

01.U40 

059. 7 

006933 

061.95 

155.6-26.0 

07.9 

01.09 0C.8 

C! .143 

21329 

01.0 22 

05 3. 3 

006933 

065.35 

159.3-25.1 

07.9 

01.09-02.6 

01.161 

2062b 

01.008 

062.9 

006975 

069.19 

163.3-24.2 

07.8 

01. 10-04.3 

01.160 

19994 

01.001 

054.4 

006999 

072.86 

167.1-23.1 

07.8 

01. 11-06. C 

01.171 

19450 

01.002 

056.0 

007025 

076.36 

170.8-22.0 

07.8 

01.12-07.6 

G 1 • 186 

19004 

01.015 

059. 7 

0C7052 

080.30 

174.4-20.8 

07.7 

01.1309.2 

01.202 

18658 

01.040 

U63.0 

007082 

084.07 

177.9-19.3 

07.7 

01.15-10.0 

01.223 

18409 

01.081 

066.5 

00711? 

087.68 

181.3-18.2 

0/.7 

01.17-12.3 

01.248 

18248 

01.139 

0/0. 3 

007144 

091.72 

184.7-16.8 

07.7 

01.19-13.7 

01.277 

1 81t»3 

01.213 

074.2 

00 7 L 78 

095.38 

188.0-15.3 

07.6 

01.21-15.1 

U 1 • 309 

18140 

01.30G 

078.3 

007212 

099.47 

191.3-13.9 

07.6 

01.23-16.4 

01.345 

18163 

01.417 

002-4 

007248 

103.3. 

194.5-12.4 

07.5 

01.25-17.6 

01.383 

18219 

01.545 

086. 6 

007284 

107.28 

1^7.6-10.0 

07.5 

Oi.27-10.7 

01.423 

18296 

01.691 

070.9 

007320 

111.20 

200.7-09.3 

07.6 

01.30-19 0 

01.464 

18383 

01.852 

095.2 

007358 

115.11 

203. 7-07.7 

07.4 

01.32-20.0 

01.507 

18473 

02.027 

099.5 

OC7395 

119.01 

206.7-06.1 

C/.4 

01.34-21.6 

01.549 

18559 

02.211 

103.9 

007433 

122.89 

209.7-04.5 

07.4 

01.36-22.4 

01.589 

18636 

02.401 

108.3 

UC7471 

126.73 

212. 7-02.9 

07.3 

01.39-23.1 

01.628 

18701 

02.590 

112.6 

007509 

130.55 

215.6-01.? 

07.3 

01.41-23.0 

01.664 

18762 

02.772 

117.0 

007584 

ir .33 

221.4 01.9 

07. 2 

01.44-24.7 

01.723 

18806 

03.084 

125.6 

007658 

145.30 

227.1 05.1 

07.1 

01.47-25.3 

01.759 

18795 

03.281 

134.0 

007729 

152.31 

23?. 9 08.1 

07.1 

01.49-25.6 

01.769 

18725 

03.329 

142.1 

007797 

159.05 

238.7 11.1 

07.0 

01.50-25.5 

01.754 

18609 

03.225 

149.8 

00 786 C 

165.51 

244.6 13.9 

07.0 

01.50-25.1 

01.718 

18463 

03.005 

156.9 

0079l« 

171.71 

250.5 16.5 

06.9 

01.50-24.4 

01.667 

18304 

02.723 

lb3. 6 

007972 

177.63 

256.6 19.0 

06.9 

01.48-23.4 

01.608 

i8l46 

02.420 

166.7 

008020 

183.36 

262.9 21.3 

06.8 

01.47-22.2 

01.647 

18007 

02.138 

175.4 

008061 

188.86 

269.2 23.3 

06.8 

01.45-20.8 

01.486 

17086 

01.885 

100. 7 

008096 

194.20 

275.8 25.0 

06.7 

01.42-19.2 

01.431 

17792 

01.674 

186.7 

008124 

199.39 

282.5 26.4 

06.7 

01.40-17.4 

01.382 

17720 

01.601 

190.3 

008144 

204.47 

289.3 27.5 

06.7 

01.38-15.6 

01.339 

176 70 

01.360 

194.8 

008158 

209.47 

296.2 28. 3 

06.7 

Ul. 35-13.5 

01.301 

17645 

01.247 

198.9 

008163 

214.42 

303.2 28.7 

06.7 

01.33-11.4 

01.269 

17650 

01.158 

202.7 

008162 

219.35 

310.2 28.8 

06.7 

01,31-09.3 

01.243 

17697 

01.090 

205.3 

008153 

224.30 

317.3 28.5 

06.7 

01.30-07.0 

01.221 

17801 

01.041 

204.0 

008137 

229.29 

324.2 27.8 

06.7 

01.28-04./ 

01.205 

17902 

01.011 

156.2 

008113 

234.35 

331.1 26.8 

06.7 

01.27-02.4 

01.196 

10259 

01.000 

066.0 

008082 

239.53 

337.8 25.5 

06.8 

01.27 00.0 

01.191 

18648 

01.010 

062.7 

008045 

244.84 

344.4 23.8 

06.8 

01.26 02.3 

Cl. 192 

19151 

01.041 

065.8 

008001 

250.33 

350.9 21.9 

06.8 

01.26 04.7 

01.199 

19757 

01.093 

070-7 


END 


) 


Figure 7. Listing of Sample Master Orbit Tape (TI) (cont # ) 


p.oo? 

DECL. 
81. 1 

85.4 
8/. 9 

84.1 
Z9. I 
73. / 
68. 1 
62-4 
56. 7 
*>0.9 

45.4 

40.0 

35.0 
30. 1 
? 6.0 
22. L 
18. / 

15.6 

13.0 

10.7 
08 . H 
07.? 
06. 1 

04.7 

04.6 

05.8 

08.0 
11-2 

15.2 

19.9 

23.1 

30.8 

36.8 

43.2 

50.0 

57.0 
o4. *> 
72-2 

80.3 
*7.4 

82.0 

73.6 
65.2 
37.1 
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REFINED WORLD MA° -0RWR.T. 
61131 , 196* NU S-15 
FROM 610*04 1630 TO 610504 184C 

R1C4 RUN TC GET M » G . T • • 0R3A » 
AND MEFINEU wMAP OUTPUT 


R 1 04 HUN T 0 GET M. C . T * » 0R3A, AND REFINED WMAP OUTPUT 

10. NO. REF. DATE LAMBDA HMS TAU DMS SATELLITE 

61131 61 04 27 14 18 *7450 036 30 04399 1961 NU S-15 

DATA FROM ORBITAL TAPE TITLE RECORD 

EPOCH 61 05 04 14 26 00000 

X V Z X DOT Y DOT l OCT 

-87110456 00 60902777 00-56060203 00-61297063 00-65954610 00 72596790-01 

A E I M OMEGA THETA 

11787662 01 66561010-01 50264304 00 17128512 01 30036133 01 38163812 01 

DRAG EFFECTS T(P # g) N(?,0) M3.0) 

610504 14260G 12366977-07 00000000 00 


EARTH CONSTANTS MU 

KGTAT ION 

RADIUS 

FLATNESS 


lOOOOOOC 

01 58835124- 

01 10000000 01 

33670033-02 

HARMONICS 

K2 

K * 

K4 

K5 


541094 99-03 

22849999-05 

79612497-06 

23199999-06 


J 

H 

K 

L 


16232849-02 

00000000 oc 

OCOOOCOO 00 

OOOOCOOO 00 



4 


Figure 8. 


Listing of Sample Refined World Map Tape 


(TO) 


1 

j 
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r ATE 
M0504 


SATELLITE MAP 

RIO*. RUN TO GET K.C.T., OR3A, AND REFINED RMAP OUTPUT 

HR Ml LONG.UEG LAT.OEG lOOOH.KM 
16 30 004.3256-12.6976 C1719103 
16 31 086.6098-1 1 .4226 01 733678 
16 32 089.0219-10. L290 C1746428 
16 33 091.3260-08.8190 C1757412 
16 3* 093 .6065-07.4963 C1766604 
16 35 095.8646-06.1599 01773989 
16 36 098.1071-04.8149 C1779553 
16 37 100.33/0-03.4623 C1703285 
16 38 102.5502-02.1042 C1786179 
16 39 104.7747 00.7424 01786231 

SATELLITE MAP OF SPECIAL POINTS AND SUMMARY OF SOME ORBITAL DATA 

SPECIAL POINTS YRHOD A HR MI SS.SS PASS LONG. DEG LAT.DEG iuOOH.km 

ASCENDING NODc 

NORTH ?0I N T 

DESCENDING NCOE 

SOUTH POINT 

SUNLIGHT ENTRANCE 

SUNLIGHT EXIT 

SUMMARY DATA PFRCt^T 

SATELLITE IN SUN 000.0 


PAGE 0002 


Figure 8. Listing of Sample Refined World Map Tape (TD) (cont.) 
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LUTE SATELLITE MAM 

M050* R l 04 KUN TO GEL M.C.T., 0R3A, AND WEflNfcP WHAM OUTPUT 


HR 

Mi 

LONG. CEG 

L A T .DEG 

10C0H.KM 

16 

*0 

106.9900 

00.6209 

01783**1 

16 

*1 

109.2082 

01.98*0 

C177S013 

16 

*2 

ill. *332 

03. 3**9 

0177*353 

16 

*3 

113.6609 

0*. 7017 

Cl 767073 

16 

** 

116.9193 

06.052) 

01757905 

16 

*5 

ll«. 1 fins 

07. )9* 7 

Ct 7*7108 

16 

*6 

120.4000 

08.7266 

0173**63 

16 

*7 

122. '901 

10.0*57 

Cl 72C075 

16 

*8 

125 ♦ L*6d 

11. 3*96 

C l 70 39 7 3 

16 

*9 

127.5301 

12.6359 

01686109 

16 

50 

129.9520 

l 3.9017 

01666 758 

16 

6 1 

132.4167 

15. 1**3 

016*5720 

16 

52 

13*. 92 77 

16. 360* 

01623123 

16 

53 

177. *891 

17.5*67 

C1599C1) 

16 

5* 

1*0.10*6 

10.6998 

01573**3 

16 

56 

1*2.7779 

19.0157 

Cl 5*6*70 

16 

56 

1*5.5123 

<0.0907 

01518156 

16 

57 

1*0.3109 

21.9202 

01*88566 

16 

58 

151.1768 

22.9000 

01*57770 

16 

69 

15*. 1 116 

23.8251 

Cl *258*0 

17 

00 

157.117* 

2*. 6906 

C l 392878 

17 

01 

160.195* 

25. *912 

C \ 3589*6 

17 

02 

163.3*59 

26.2218 

0132* 1*3 

17 

03 

166.5606 

26.0767 

Cl 288562 

17 

0* 

169.862* 

27. *507 

C 1 252 303 

17 

05 

173.22** 

27.9381 

C 1 21 5*7H 

17 

06 

176.651 7 

28. 3336 

01 1 7eiv4 

17 

0 7- 

179.8602 

28.6322 

011*0566 

17 

08- 

176.3166 

28.8288 

0* 10271 7 

17 

09- 

172.723d 

20.919) 

C 1 06* 7 70 

17 

10- 

169.0887 

28.8995 

0102685) 

17 

11- 

166. *197 

20. 7662 

C0989106 

17 

12- 

161.7250 

28.5169 

C0951666 

17 

13- 

160.0131 

28. 1*97 

CC91*671 

17 

1*- 

15*. 2927 

27.6637 

COB 7 8268 

17 

15- 

150.5722 

27.0509 

CO0* 260 3 

17 

16- 

1*6.0590 

26.3359 

0080 782* 

17 

17- 

1*3.162* 

25. *966 

C077*078 

17 

10- 

1)9. *072 

2*. 5*35 

007*1520 

17 

19- 

■3 35.8395 

23. *802 

C071C296 

17 

20- 

1)2.2231 

22.3107 

im8C552 

17 

21- 

120.6*33 

21.0*00 

COt 5 2* 3 3 

17 

22- 

125.100* 

19.67)7 

C062 oO 76 


V Aofc 0003 


HR Ml LONG. DEG LA1.0EG loOuH.K* 
17 23-121.5958 18.2170 OObOlol* 
1/ 24-118. 13C3 16.6793 005791 79 
1 7 25-ll*».702 7 15.0651 00558086 
1 7 26-1 1 1.31 12 1 3. 3828 005*0848 
17 27-107.95 3** 11.6*01 006/5162 
17 28-10*. 6258 09.8*52 00511916 
17 29-101.32*5 08.0061 0C5G1166 
17 30-098.0*60 06.1317 00*93032 
1 7 31-09*. 7851 0* . 2 30* 00*8 750* 
17 32-091.5372 02.3109 00*8*633 
17 33-088.2972 00.3018 00*8**36 
17 3*-085. 0598-01 .5*80 00*8691* 
17 35-081.8197-03.4701 00*9205* 
17 36-0 78 .57?*-05. 375* 00*99826 
17 37-075.3127-07.2556 00510186 
17 38-072. C 360-09. 1022 G0523O7* 
17 39-068. 7 3 . 7 - 10.90 70 00538*17 
17 *C-065. *1*2-12. 6618 00556131 
17 * 1-062 .06 19- 1*. 3588 00576118 
17 *2-058.6776-19.9907 00998271 
17 *3-055.2601-1 7.5*9b 00622*69 
17 **-051.8075-19. J29* 006*858? 
17 *5-0*8. 3197-20. *2 30 00676*9) 
17 *6-0** . 79 70-21 • 72*9 007060*7 
17 *7-0*1 .2*11-22.929* 00737105 
17 *0-03 7. 65*3-2*. 0)18 0C769526 
17 *9-03*. 0*08-25. 02 79 0080)153 
17 50-030r*052-25.9i*l 00b)7&)8 
17 51-026.7529-26.6079 OOb73*3* 
17 52-023.0906-27.3*73 009C9789 
17 53-019. *253-27. 8913 009*675? 
17 5*-015. 76*5-20. 3196 0098*195 
17 55-012.1 169-28.6326 0102195* 
17 56-008. *901-28. 8318 0105*897 
l? 5 7-00*. 0923-28. 9193 0l097 o 9l 
17 50-001.3308-28.0979 01135003 

17 5< 002.1071-28. 7709 01173508 

18 00 005.6550-28.6*73 Ol2l08n? 
18 01 009. 0679-28. 2165 012*7*1* 
18 02 U12. *203-27. 7980 01/0*183 
lb 03 015. 7089-27. 2920 0.31988? 
18 0* 018.93C9-26. 703) 01)5*8/3 
18 05 022.08*6-26.037 3 01 )801*96 


Figure 8. 


Listing of Sumple Refined World Map Tape (TO) (cont.) 
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DATE 

610504 


satellite pap 

R1U4 RUN TO GET M.C.T., CR3A, AND REFINED RMAP UUTPUf 


LONG. OtG 
025 • 1689 * 
028. I HA l - 
031.1 302- 
034.0089- 
036.8219- 
039.6 716- 
042.2607- 
044.0924- 
047.4697- 
049.9962* 
052.4755- 


L AT .DEG 
26.2991 
24.4936 
23.6260 
22. 7011 
21 « 7235 
20 . 697 * 
19.62* / 
1 H* 51 76 
1 7. 3712 
16. 1921 
14.9835 


1000H.KM 
01422014 
01454094 
C 1 405048 
01514004 
01543288 
0157C436 
C| 496185 
C162C479 
01643260 
01664483 
C 1 684 102 


LUNG. DEG 
054.91 15- 
057.3079- 
059.6608- 
061.9977- 
064.2988- 
066.5 759- 
C 6 0 . 8 3 2 9 
071 .0736- 
l 73. 3025- 
076.6231- 
077,7389 


lat.deg 

-I 3. 7485 
-12.4900 
-11.2106 
-09.9133 
- 08.6002 
-07.2737 
05.9360 
-C4.5R92 
-03.2353 
-01.8762 
00.5141 


10JUH.KP 

0 l 7 C 2 0 7 7 
01 718371 

01 732953 
01 745792 
01756863 
01766146 
01 773622 
01 7792 79 
01783104 
01785092 
01705237 


SATELLITE MAP OF SPECIAI POINTS AND SUMMARY OF SOMfc OROI TAL DATA 


SPECIAL POINTS 
ASCENDING NODE 
NORTH POINT 
DESCENDING NODE 
SOUTH POINT 
SUNLIGHT ENTRANCE 
SUNLIGHT EXIT 


YKMOUA HR MI 5S.SS PASS LONC.OEG LAT.DEG 10CCH.KM 
6105C4 16 39 32.68 000003 106.9811 Ou.OOCO 01784485 
610504 17 09 19.22 000003-171.5639 28.9251 01052617 
6105C4 17 33 11.36 00000 3-08 7.66 73 OU.OOOC 0048471*. 
610504 17 57 18.21 000003-003 . 80 7 l -2 8. 9 ?42 01109413 
610SC4 io >5 55.21 OOCOC3 145.2918 2U.BC65 01520462 
6 1 0604 1” 07 32.57 000003 029.79 1 7-24.0301 01471040 


SUMMARY DA I A 
SATELLITE IN SUN 


percent 

066.4 


PA^E 0004 


Figure 8. Listing cf Sample Refined World Map Tape (TD) (cont.) 
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PAU 
o 10604 

SJ 

ri 04 run to ge f m. o. r . 


HR 

MI 

LONG. DEG 

L A T • OEG 

1000H.KM 


LB 

28 

079.9642 

00.8492 

U 783641 


la 

29 

08? . l 728 

02.2118 

Cl 7HC006 


le 

30 

084 . 3986 

03.6718 

Cl 774640 


la 

31 

086.6366 

04.9271 

CL 767462 


16 

32 

068.8878 

06.? 760 

Cl 760466 


18 

33 

091.1687 

07.6160 

Cl 74 7670 

V 

la 

34 

093.4627 

08.9449 

01736114 

'(r 

18 

36 

096.7736 

10.? 60 7 

Cl 72C816 

18 

36 

098.i266 

11. 6608 

Cl 704 799 

* 

18 

3 r 

100.6123 

12.8428 

C l 68 7099 

> 

18 

38 

102.9383 

14. 1038 

01667748 

\ 

18 

39 

106.4069 

16.3409 

01646 792 

i 

18 

40 

107.9226 

16.6610 

C 1 624 2 72 


SATELLITE HAP 

OF SPECI 

I At POINT 


OF SO Vi' ORBITAL DATA 


special points yrhooa 

ASCtNOING NODE 6106C4 

NORTH POINT 
DESCENDING NODE 
SOUTH POINT 
SUNLIGHT ENTRANCE 
SUNLIGHT EXIT 

SUMMARY OATA PERCENT 

SATELLITE IN SUN 000.0 


HR MI 
lti 27 


SS.SS PASS 
22.63 000004 


long.ueg 

078.5743 


LAT.DEG 1 CJ 0 CH.KM 
00.0000 Ol704bl4 


PAGE 0006 


the end 


Figure 8. Listing of Sample Refined World Hap Tape (TO) (cont.) 
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Table 4. Orbital Tape Format-3A (TCB) 


WORD NUMBER 

WORD CONTES. £ 


Binary Title Record Format 

0 

Fortran data record size indicator - 000375010001 R 
(Underlined octal number indicates a total data word count 
of 253 words.) 

1 

Form of data identification = 76799361 

2-3 

Satellite identification 

4 

Date ) 

^ [ U.T. Start Time 

5 

Day Count of Year > 

_ 4 of Satellite Bata 

6 

Seconds of Day ; 

7 

Date ) 

^ ^ I U.T. End Time of 

8 

Day Count of Year > ^ 

,, ( Satellite Data 

9 

Seconds of Day J 

JO 

= At in seconds, if tape has equal intervals 
= 0, if tape has unequal intervals 

11 

No. of data items in data record = 12 
(includes a special type of item as item no. 12) 

12 

No. of words per data item - 21 

13 

No. of words per data item that are a function of time 
(these words follow the time words consecutively) = 16 

14 

No. of words in data record - 256 

15 

Spare 

16-26 

Run identification data 

27 

Date v 

28 

Day Count of Year 1 Coordinate System Reference 

29 

Apparent Sidereal Time i Data Time and Position 
in radians ' 

30-40 

Used for harmonics, etc. 

41 

Date ) 

42 

Day Count of Year > Epoch 

43 

Seconds of Day ) 

44 

Semi-major axis, a (km.) 

45 

Eccentricity, e (ratio) 

46 

Inclination, I (aeg,) 

47 

Right ascension of ascending node, Q (deg.) 

48 

Rate of change of R.A. of ascending node, Cl (deg. /day) 

49 

Argument of perigee, uu (deg.) 

50 

Rate of change of argument of perigee, do (deg. /day) 

51 

Period, P (min.) 

52 

Rate of change of period, P (min. /day) 

53-253 

Used for elements, drags, etc. 

254 

Check sum of words in word no. 1-253 

255 

Same as word 0 
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Table 4. Orbital Tape Format-3A (TCB) 


WORD NUMBER 


WORD CONTENTS 


Binary Data Record Format 


0 


Fortran data record size ; ndicator = 0003 73010001^ 
(Underlined octal number indicates a total data vord count 
of 253 words.) 


1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


Type of data item indicator 

1 = regular satellite data item 

2 = ascending node crossing data item 

3 = north point data item 

4 = descending node data item 

5 = south point data item 

6 = sunlight entrance data item 

7 = sunlight exit data iter 


Date of data ) 

Day Count of Year > Time of Data Item 
Seconds of Day I 



Satellite Position 
Vector in km. 

Satellite Velocity 
Vector in km. /sec. 


Longitude (deg.) 

Latitude (deg.) 

Height above spheroid (km.) 


SX 1 

SY > Solar Vector in A.U. 
SZ ) 


Geodetic Position 


17 

18 


L (earth radii) Mcllwain L Parameter 

B (Gauss) Magnetic Field Strength 


19 

20 

21 

22-231 


Right ascension (deg.) | Real Field Inertial 
Declination (deg.) / Coordinates 

Ascending node crossing no. (pass no.) 

10 other satellite data items 


232 


= 99 (type of data indicator) 


233 

234 


235-252 

253 

254 

255 


Year of Data 

= 999 if no ascending node item occurred 
= % of orbit in sunlight if an ascending node item 
occurred in this record 
Spares in last item 
Spare in record 

Check sum of data words in word no. 1-253 
Same as word 0 
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Table 4. Orbital Tape Format-3A (TCB) 


WORD NUMBER 

WORD CONTENTS 

Binary Sentinel Record Format 

0 

Fortran data record size indicator = 000375010001g 
(Underlined octal number indicates a total data word count 
of 253 words.) 

1 

99999999 

2-253 

Irrelevant 

254 

Check sum of data words in word no. 1-253 

255 

Same as word 0 


Note: 


1. All words are in floating point form except for words 0, 254, 
and 255, which are in fixed point form. 

2. Longitude is positive east of Greenwich; negative west. 

3. Northern latitudes are positive; southern latitudes are 
negative . 

4. Date of data = day + 100 (months + year (100)). (Example: 

Feb. 10, 1962 at 2 hours is recorded as 620210 in date of data, 
41 in day count of year and 7200 in seconds of day) . 

5. The satellite and the solar position vectors are referenced to 
an equatorial coordinate system with the origin at the center 
of the earth, the x-axis ’n the direction of the vernal equinox, 
the z-axis along the North Pole of the earth, and the y-axis 
forming a right-handed coordinate system. 

6. Reference day data of apparent sidereal time is obtained from 
"The American Epheraeris and Nautical Almanac” for the given 
year. 

7. The last valid data item in a data record is followed by an 

item of 9's. If the last valid data item fills a record, a 
data binary record follows which contains 9's in words 1-21. 

9's are equal to 99999999 in floating point. 
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FLOATING PCINT BINARY TAPE OUMP 

DUMP OF BINARY OR3A TAPE 
FROM *IC<> RUN 

25* 002 000U0 00000 GOO 

RECORD NUMHtR 0000 i 

00002 76799361 OB 6 L 131000 05 00000000 CO 61050<*00 

Ob 

L 2 * 0 0 0 U U 

0 3 


0000 7 

59*00000 

05 

61050*00 

06 

1 2*00000 

03 

67200000 

05 

OOOOOOOu 

OU 


00012 

12000000 

U2 

2 IGOOOOO 

02 

16000000 

02 

25600000 

03 

76796200 

Oo 


00017 

00000000 

00 

ooonoooo 

OC 

79910000 

0* 

9C9*C079 

08 

8* 7 50C8 3 

Oo 


0002 ; 

76006765 

08 

e3007*l8 

8 

76188318 

08 

6 l 756*00 

06 

76796200 

06 


0002 7 

3 0 9 3o 1 00 

08 

610*2700 

06 

l 1 700000 

03 

37*79090 

01 

OOOOOOOO 

00 


00032 

00000000 

00 

oocooooo 

OC 

5*109*99- 

-03 

228*9999- 

-05 

79612*9 7- 

-06 


00037 

2 3199999- 

-06 

162320*9- 

-02 

coocoooo 

00 

OCOOCOOO 

00 

OOOOOOOO 

00 


000*2 

6 1050*00 

06 

12*00000 

03 

51960000 

05 

75186287 

0* 

0656 1 C l g- 

-01 


000*7 

28799325 

02 

21 3662 5* 

0 3 

-*982**65 

01 

1 766 7 80 3 

03 

0072600* 

01 


00052 

10813176 

03 

-36653803- 

-03 

OOOOOOOO 

00 

OOOOOOOO 

00 

OCOOOOOO 

00 


00102 

8 1 3998** 

03 

l 1 787662 

01 

86561018- 

-01 

l 8808503 

01 

-87110*56 

00 


00107 

60902777 

00 

-56060203 

OC 

-61297063 

00 

-6595*6 LO 

00 

72596790- 

01 i 


00112 

12016707 

01 

90332958 

OC 

*96**636 

01 

t 7128512 

01 

*96**6 36 

01 


00117 

308 36 L 3 3 

01 

5026*30* 

00 

38163612 

01 

-8**68275- 

-Oi 

78137306 

00 


00122 

1 7972031 

01 

13 1*7 ICO- 

-02 

-81206238- 

-03 

00*1210* 

Cl 

76 73 1 C 70- 

-01 


00127 

260801*8 

00 

OOOOOOOO 

00 

OOOOOOOO 

00 

OOOOOOOO 

00 

ooooocoo 

00 


00132 

813998** 

03 

ooooooco 

00 

OOOOOOOO 

00 

OOOOOOOO 

00 

OOOOOOOO 

00 


00152 

12366977- 

-07 

oocooooo 

00 

OOOOOOOO 

oo 

OCOOOOOO 

00 

oooooooo 

00 


00192 

61000000 

02 

50C000C0 

01 

*0000000 

01 

1*000000 

02 

26000000 

0? 


00197 

oooooooo 

00 

ooonoooo 

OC 

10000000 

01 

oooooooo 

00 

300C0C00 

01 


RECORD 

00002 

NUMBER 00002 
10000000 01 

61050*00 

06 

12*00000 

03 

59*00000 

05 

-76611063 

0* 


00007 

“193031 15 

0* 

-17 706781 

0* 

60*05509 

00 

-608639*3 

01 

28358120 

01 


00012 

8*3255*6 

02 

-12697596 

02 

17191829 

0* 

72600170 

00 

6*232137 

00 

f 

k 

00017 

27855059 

00 

1*329196 

01 

20568999 

CO 

18781837 

03 

33800100 

02 


00022 

20000000 

01 

10000000 

01 

61050*00 

06 

12*00000 

03 

59520000 

05 


0002 7 

-75*7*776 

0* 

-26*89650 

0* 

-1*21*3*6 

0* 

12869238 

01 

-58808*01 

01 

- 

00032 

2979*519 

01 

09C21888 

02 

-10128993 

02 

17*6*283 

0* 

72598551 

00 


00037 

6*233722 

00 

278557*7 

OC 

13809203 

01 

20202160 

00 

19397083 

03 

* 

000*2 

*0226065 

0? 

20000000 

01 

10000000 

Cl 

61050*00 

06 

12*00000 

03 

l 

000*7 

596*0000 

05 

-73530226 

0* 

-33393055 

0* 

-10569155 

0* 

19501205 

01 

r 

00052 

-561*35** 

01 

30899983 

01 

93605*88 

02 

-7*952815 

01 

176660*1 

0* 

c 

00057 

72596932 

00 

6*235308 

OC 

27856*35 

00 

133*3057 

01 

19778190 

00 


00062 

2000919* 

03 

*7288395 

02 

20000000 

01 

10000000 

01 

61050*00 

Ob 


00067 

12*00000 

03 

59 7600 CO 

05 

-7080*305 

0* 

-399*1296 

0* 

-60115509 

03 

‘f 

00072 

25885559 

01 

- 52 0000 2 2 

01 

31670**0 

01 

98107109 

0? 

-*81*8572 

01 

? 

00077 

l 7795530 

0* 

72595313 

OC 
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RECORD NUMBER OOOLO 

00001* L 0000000 01 61050400 06 12400000 03 66240000 05 -70/96*8u 04 

00007 -40003054 04 -64927861 03 2600741B 01 -52814502 01 31710)28 01 

00012 71073831 02 -45892009 01 17792780 04 72507041 00 64)224/1 00 

00017 27894230 00 13011497 01 17645221 00 19893053 03 57040672 02 

00022 30000000 01 10000000 01 61050400 06 12400000 03 66360000 05 

00027 -67306788 04 -46118641 04 -26587092 03 32095814 01 -49017890 01 

00032 32122642 01 75523068 02 -18/62245 01 17850917 04 725O6220 00 

00037 64324054 00 27894917 00 12691999 01 17650439 00 202o5l93 03 

00042 64465381 02 30000000 01 20000000 01 61050400 06 12400000 03 

00047 66442626 05 -644B8427 04 -50050253 04 86059569-U? 36091C08 01 

00052 -46102656 01 32203395 01 78574349 02 62655075-04 17848136 04 

00057 72505103 00 04325145 00 27895389 00 12503466 01 17676457 00 

00062 20466794 03 69793910 02 40000000 01 10000000 01 61C604UU Ob 

00067 12400000 03 66480000 05 -63106939 04 -51747135 04 12032945 03 

00072 37640278 01 -44707064 01 32186864 01 79954200 0? 84919689 00 

00077 17835409 04 72504600 OC 64325638 00 27895604 00 12426851 01 

00082 17696820 00 20530672 03 72232888 02 40000000 01 lOOOOoOU 01 

00087 61050400 Ob 12400000 03 66600000 05 -5824C633 04 -5682"131 04 

00092 50525547 03 43195633 01 -39915114 01 31910134 01 84398588 02 

00097 35717835 01 17746395 04 72502978 00 6432 7222 00 2*896290 GO 

00102 12214996 01 178H0656 00 20401376 03 80261651 02 40000000 01 

00107 10000000 01 61050400 06 12400000 03 66720000 05 -52757009 04 

00112 -61309147 04 88483217 03 48117135 01 -34676561 01 31292361 01 

00117 88887750 02 62759688 01 L7584556 04 72501357 00 6432880b 00 

00122 27896977 00 12054122 01 17981641 00 15622211 03 87433/58 02 

00127 40000000 01 10000000 01 61050400 06 12400000 03 66840C00 05 

00132 -46711399 04 -65135352 04 12549332 04 5255951b 01 -29028672 01 

00137 30334483 Ol 93452696 02 89449375 01 17351144 04 7249973b 00 

00142 64330389 00 27897663 00 1195080b 01 L8259259 00 66013630 02 

00147 82015152 02 40000000 01 10000000 01 6105C4C0 06 12400000 03 

00152 66960000 05 -^0163695 04 -60261166 04 16115066 04 56470197 01 

00157 -23010454 01 29038431 01 98125472 02 115608*9 02 17047986 04 

00162 72498U5 00 64331973 00 27898350 00 11905469 01 18647745 00 

00167 62734597 02 73560797 02 40000000 01 10000000 01 61050400 06 

00172 12400000 03 67080000 05 -33179086 04 -70644769 04 19*05293 04 

00177 59828287 01 -16664021 01 27407362 01 10293828 03 14103837 02 

00182 16677484 04 72496493 00 64333557 00 27899037 00 119207/3 01 

00187 19150686 00 65036780 02 65159489 02 40000000 01 10000000 01 

00192 61050400 06 12400000 03 67200000 05 -25829248 04 -72249317 04 

00197 22679755 04 62*64204 01 -10036376 01 25446417 01 10792247 03 

00202 16*51026 02 16242723 04 72494072 00 64335139 00 27899723 00 

00207 11989948 01 19756828 OC 70652167 0? 57120003 U? *0000000 01 

00212 99999999 08 99999999 00 99999999 08 99999999 U0 99999999 Ob 

00217 99999999 00 99999999 00 99999999 08 99999999 08 99999999 08 

00222 99999999 UB 99999999 Ofc 99999999 08 99999999 08 99999999 Ob 

00227 99999999 08 99999999 08 99999999 08 99999999 08 99999999 Ob 

00232 99999999 08 99000000 02 61000000 02 6b420132 0? 00000000 00 

RECORD NUMBER OGGI I 

00002 99999999 OH 61050400 06 12400000 03 66240000 05 -70796586 04 

00007 -40003054 04 -64927861 03 26007418 01 -52014502 01 3171812b 01 

00012 71073831 02 -45092009 01 17792768 04 72507841 00 64322471 00 

0001 7 27894230 00 HOI 1497 01 1764221 00 19893853 03 57040672 02 

00022 30000000 01 10000000 Ol 61050400 06 12400000 03 66360000 0* 

00027 -67306708 04 -461186H 04 -2658709? 03 32095814 Ol -49017890 Ol 

00032 32122642 01 75523060 02 -187b2246 01 17850917 04 72506220 00 

00037 64324054 00 2/094917 00 12691999 01 17650439 00 20265193 03 

00042 64465381 02 30000000 Ol 20000000 01 61050400 06 1240000U 03 

00047 66442626 05 -64486427 04 -50050253 04 86059569-02 36041000 01 

00052 -46102656 01 3220339* 01 70574349 02 62655075-04 17840136 04 

00057 72*05103 00 64325145 00 278953B9 00 12503466 01 1767645/ 00 

00062 20466794 03 69793910 02 40000000 Ol 10000000 0 1 61050400 Ob 

00067 12400000 03 66480000 05 -63106939 04 -51747135 04 12032945 03 

00072 37840278 Ol -44/07064 01 32186864 01 79954200 0? 849l9o89 00 

00077 17835409 04 72504600 OC 64325638 CO 27895604 00 12426851 01 

00082 17696820 00 20530672 03 72232888 02 40000000 01 lGGoOOOb Ol 

00087 610*0400 06 12400000 03 66600000 05 -58240633 04 -56829131 04 

00092 50525547 03 43195633 01 -39915114 Ol 31910134 01 84)98580 02 

00097 3571783* Ol 1774639* 04 72502978 00 64327222 00 27896290 00 

00102 12214996 Ol 17800656 00 204013/6 03 00261651 02 40000000 Ol 

00107 10000000 01 61050400 06 12400000 03 66720000 05 -52757C09 04 

00112 -61309147 04 88483217 03 40117135 01 -346/6*61 01 31292361 01 

00117 08887750 02 62/59688 01 17*845*6 04 7250135/ 00 6432880b 00 

00122 27896977 00 12054122 Ol 17981641 00 15622211 03 8743)7*6 02 


Figure 9. Listing of Sample Orbital Tape Format- 3A (TCB) (cont.) 
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Table 5. Satellite Position and Real Field Data Tape (TCB) 
WORD NUMBER WORD CONTENTS 




Binary Sentinel Record Format 
1 99999999 


2-350 


Irrelevant 










Note : 


1. All words are in floating point form. Longitude is positive 
east of Greenwich; negative west. 

2. Northern latitudes are positive; southern latitudes are 
negative . 

3. Date of data = day + 100 (month + year (100)) . (Example; 

Feb. 10, 1962 at 2 hours -is recorded as 620210 in date of data, 
41 in day count of year, and 7200 in seconds of day.) 

4 . Reference day data of Apparent Sidereal Time is obtained from 
"The American Ephemeris and Nautical Almanac" for the given 
year . 

5. The last valid data item in a data record is followed by an 
item of 9's. If the last valid data item fills a record, a 
binary data record follows which contains 9's in words 1-8. 

9’s are equal to 99999999 in floating point. 
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RLQAT1NG POINT BINARY TAPE DUMP 


350 001 00000 00000 000 

RECORD NUMBER 00001 

00001 82777966 Of 611310C0 05 00000000 00 61050400 06 12400000 03 

00006 59400000 05 61CS0400 06 12400000 03 67200000 05 60000000 02 

00011 79000000 02 91909400 08 79847500 08 83760067 08 65830074 08 

00016 18761883 08 18380082 08 77796638 €8 61756400 06 79656600 06 

00021 69756564 08 86746100 06 77007684 08 83778483 06 00000000 00 

00026 00000000 00 61042700 06 11700000 03 37479090 01 00000000 00 

00031 00000000 00 00000000 00 54109499-03 22849999-05 79612497*06 

00036 23199999-06 16232849-02 00000000 00 00000000 00 00000000 00 

00101 81399844 03 11787662 01 86561010-01 18808503 01 -87110456 00 

00106 60902777 00 -56060203 00 -61297063 00 -65954610 00 72596790-01 

OOlli 12016707 01 90332958 00 49644636 01 17128512 01 49644656 01 

00116 30836133 01 50264304 00 38163812 01 -04468275-01 78137306 00 

00121 17972031 01 1U571CO-02 -81206738-03 80412104 01 76731C70-01 

00126 26080148 00 00000000 OC 00000000 00 00000000 00 00000000 00 

00131 81399844 03 OOCOOOOO 00 00000000 00 00000000 00 OOOOGOOu 00 

00151 12366977-07 OOCOOOOO 00 00000000 CO 00000000 00 OOOOOCOO 00 

00191 61000000 02 5OCOO0CO 01 40000000 01 14000000 02 26000000 02 

00196 00000000 00 00000000 00 10000000 01 00000000 ro 30000000 01 

RECORD NUMBER 00002 

00001 61050400 06 12400000 03 59400000 05 60000000 02 00000000 00 

00006 84325546 02 -12632434 02 80965396 04 20568999 00 14329196 01 

00011 00000000 00 86689782 02 -11363738 02 81112282 04 20394701 00 

00016 & 4064 796 01 00000000 00 89021886 02 -10076562 02 61241556 04 

00021 20202168 00 13809203 01 00000000 CO 91325994 02 -87731987 01 

00026 01352976 04 19995184 OC 13572266 01 OOOOOOOO 00 93605488 02 

00031 -74562118 01 81446284 04 19778190 00 13343057 01 OOOOOOOO 00 

00036 95864573 02 -61276572 01 81521308 04 19556034 00 13134266 01 

00041 OOOOOOOO 00 98107109 02 -47896308 01 01577901 04 19333895 00 

00046 12938301 Ot OOCOOOCO OC 10033702 03 -34441510 01 81615946 04 

00051 19117118 00 12761196 01 OOOOOOOO 00 10255818 03 -**0931857 01 

00056 81635377 04 18911023 00 12601309 01 OOOOOOOO 00 10477*69 03 

00061 -73852444 00 81636147 04 18720731 00 12460059 01 OOOOOCOO 00 
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IV. APPENDICES 


This section contains three appendices: 

APPENDIX A - On-Line Deck Program Listing 
APPENDIX B - Tape Program Listing 
APPENDIX C - BIIAi Fortran Subroutine Listing 

When compiling, the on-line deck (origin 0700C' must be compiled iirst. 
The card at the end of the deck trarsfers com; i . - on to the tape. The 
" ." card at the end of the tape transfers compilation back to the card readen 

The cards for any additional functions to be compiled should be inserted 
in the on-line deck between the blank cards (following the " card) and the 
"30" card. 

For a compile-and-execute run, the "30" card is followed by one blank 
and the input data cards. 



Figure 11. R1C4 Compilation 
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ONE-WORD LOAO 

Q 

90036 

02951 

WRITE BINARY TAPE TITLE RECORD 
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00081 

Q 

90050 

02201 

ARC TAN (Y/X) 


00082 

Q 

90051 

01681 

ANGLE REDUCER 


00063 

0 

90052 

02701 
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GEOMAGNETIC LATITUDE AND LONGITUDE 


00069 

Q 

90D58 

02786 

TURN ON SENSE LIGHT 1 
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R 
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R 
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PAGE 

00319 

0 

00272 

00271 

00057 



00320 

A 

00272 

OC272 

00079 



00321 

U 

00272 

00272 


NO. OF DATA LINES FOR PARTLY-FULL PAGE 

00322 


T 





00323 

P 

00000 

00057 

PA 



00324 


T THE PASS NUMBER COMPUTED 

FOR THE START TIME OF THIS MAP IS 


00325 

P 

00214 

00056 

PA 1515151506 

SSSSN 


00326 

A 

00223 

00214 

00056 

SET PASS NO. FOR FIRST MONITOR PRINT 


0032 7 

R 

00261 

00200 


J. D. -t SET TIME OF PREV.L AT .= 


00328 

R 

00262 

00201 


SEC. -1 START TIME OF RUN 


00329 

F 

00205 

90004 

00204 

COMPUTE FIRST Z 


00330 

R 

00238 

00207 


SET l -1 * FIRST Z 


00331 

F 

00259 

90012 

00204 

SET LAT -1 


00332 

R 

00263 

00055 


SET DIFF -1=0 


00333 

F 

00240 

90013 

00204 

SUN DET. FOR FIRST TIME 


00334 

R 

00285 

00055 




00335 

R 

00024 

00691 


SET B24 = U691 


00336 

E 

000 11 





00337 

B 

00012 



THIS IS START OF A PASS 

B 000)2 

00338 

A 

00214 

00214 

00056 

PASS NO. *1 


00339 

F 

00285 

90006 

OOCOO 

CGMPUTE ASC. NCDE DATA 


00340 

R 

00293 

00055 


MAKE LATITUDE AT TIME OF 


00341 

R 

00294 

00055 


ASCENDING N0DE=0 


C0342 

R 

00248 

00249 


SEC. CF START CF PASS 


00343 

B 

00011 




B 000 11 

00344 

R 

00273 

00055 


CNTR. CF FULL PAGES PRINTEO * 0 


00345 

R 

00296 

0C055 


SET TO ZERO THE FIRST LOC. 


00346 

R 

00318 

0C055 


OF THE DATA FCR EACH 


C0347 

R 

00329 

00055 


SPECIAL POINT 


00348 

R 

00307 

00055 




00349 

R 

00340 

00055 




00350 

R 

00351 

00055 




00351 

R 

00362 

00055 




00352 

R 

00250 

00085 


SET SECONDS OF SUN ENTRANCES 


00353 

R 

00251 

00085 


AND EXITS IN NEW PASS* -9»S 


00354 

R 

00252 

0C085 




C0355 

R 

00253 

00085 




00356 

R 

00216 

0C055 


CNTR. CF HALF-LINES STORED*0 


00357 

R 

00217 

00055 


CNTR. CF FULL LINES ' *ED*0 


00358 

B 

00013 



BEGIN STORING A NEW PAuE 

B 000 13 

00359 

r 

00270 

00273 

00465 

HAVE ALL FULL PAGES BEEN PRINTED 


00360 

R 

00274 

00272 


YES. SET LINES TO STORE IN LEFT HALF 

OF 

00361 

E 

00466 



PAGE * LINES/PARTLY-FULL PAGE 


00362 

B 

00465 



NC 

B 00465 

00363 

R 

00274 

0C213 


SET LINES TC SIORE IN LEFT HALF OF PAGE 

00364 

B 

00466 



* DATA LINES / FULL PAGE 

B 00466 

00365 

F 

01617 

9C005 

00200 

CATE FCR TCP CF PAGE 


C0366 

R 

00215 

00055 


TABLE STORAGE CNTR.*0 


00367 

R 

00015 

00691 


SET b 15 - B691 


00368 

E 

00024 



GC TO B691 • TO B19. OR TO B653 


00369 

B 

00691 



WMAP AND/CR SPRF TAPE IS BEING WRITTEN B 00691 

00370 

C 

00704 

00204 

00696 

IS NEXT M.O.T.'OR EARLIER THAN NEXT 

WMAP 

00371 

B 

00690 



YES. (ALSO COME HERE IF NO WMAP CR SPRF) B 00690 

00372 

F 

00205 

90004 

00704 

PCS. ♦ VEL. VECTORS FCk ORBIT TAPE 


003 n 

M 

00718 

00205 

00205 

X se. 


j374 

M 

00719 

00206 

00206 

Y SC. 


0u3 5 

A 

00720 

00718 

00719 

X SO. t Y SO. 


003 76 

M 

00719 

00207 

00207 

z so. 


C0377 

A 

00720 

00720 

00719 

X SC. M SG. * Z SQ. 


C0378 

F 

00720 

90031 

00720 

R (RAOUL U1SI . IN CUU 


00379 

C 

00450 

00055 

00485 00485 

IS I 1»0 


00380 

E 

00486 



YES. DCN* I COMPUTE 


0036 1 

B 

00485 




D 00485 

00382 

C 

00451 

00720 

00487 

IS R * OH MORE THAN R MIN 1 


00383 

C 

00720 

00452 

00487 

YES. IS R • OR LESS THAN R MAX 1 


C0384 

R 

00725 

00450 


YES. SET CUTPUT INTERVAL - I 1 


00385 


K « C0000 


PAGE 005 



E 00488 

B 00487 
C 00453 
E 00486 

B 00489 
C 00454 
C 00720 
R 00725 
E 00488 

B 00490 
C 00456 
F 00486 

B 00491 
C 00457 
C 00720 
R 00725 
E 00488 

8 00492 
C 00459 
E 00486 

B 00493 
C 00460 
C 00720 
R 00725 
B 00488 
R 00705 
R 00706 
R 00707 
F 00275 
E 00670 

B 00672 
S 00923 
S 00924 
M 00923 
A 00635 
R 00630 
R 00631 
R 00904 
F 00912 
C 00912 
E 00644 

B 00050 
M 00916 
A 00916 
A 00916 
R 00757 
B 00646 
G 00758 
H 00945 
A 00757 
C 00090 
R 00647 
F 00909 
F 00914 
C 00914 
E 00648 

B 00649 
C 00949 
R 00647 
E 00651 

8 00650 
R 00669 
C 00914 
B 00667 
R 00733 
F 00000 
C 00918 
R 00 VI 7 
E 00669 


K * COCCC 


PAGE 006 


00386 








B 

004 8 7 

00387 

00055 

00489 

00489 

IS I 

2*0 




00308 




YES. 

DON * T COMPUTE 




00389 







B 

00469 

00390 

00720 

00490 


IS R 

* OR MORE THAN R MIN 2 




00391 

00455 

00490 


YES. 

IS R * OR LESS THAN R MAX 2 




0039? 

00453 



W ES. 

SET CUTPUT INTERVAL * I 2 




00393 

00394 







8 

00490 

00395 

00055 

00491 

00491 

IS I 

3*0 




00396 




YES. 

DON* T COMPUTE 




00397 







6 

00491 

00396 

00720 

00492 


IS R 

* OR MCRE THAN R MIN 3 




00399 

0C456 

00492 


YES. 

IS R * OR LESS THAN R MAX 3 




00400 

00456 



YES. 

SET CUTPUT INTERVAL = I 3 




00401 

00402 







6 

00492 

00403 

00055 

00493 

00493 

IS I 

4*0 




00404 




YES. 

DCN* T COMPUTE 




00405 







0 

00493 

004U6 

00720 

00486 


IS R 

* OR MORE THAN R MIN 4 




0040 7 

00461 

00486 


YE Si 

! S ft * OR LESS THAN R MAX 4 




0040C 

00459 



YES. 

SET CUTPLT INTERVAL * I 4 




00409 




COMPUTE DATA FCR THIS TIME 


B 

00468 

304 10 

00205 








00411 

00206 








C3412 

00207 








00413 

90012 

00704 


SUB- 

SATELLITE PT.+ HT. F. 




00414 




GO TO 6672 (QRB3) OR TO 0671 (NC 0RB3) 




00415 




CCMPUTfc OATA FCR ANY 0RB3 SPECIAL POINTS 

B 

00672 

00416 

00700 

C0900 


THAT OCCURRED BETWEEN THE PREVIOUS 




00417 

00701 

00901 


AND 

CURRENT OUTPUT TIMES 




00418 

00923 

00076 







00419 

00923 

00924 


DELTA T (SEC ) “CURRENT- PREV .OUTPUT TIME 




00420 

00700 



J.O. 

l CURRENT URB3 OUTPUT TIME 




00421 

00701 



SEC. 

1 




00422 

00207 








00423 

90007 

00903 


1 SIGN-CHANGE CET. 




00424 

00055 

00050 

00052 

HAS 

SIGN CF l CHANGED 




00425 




NO 





00426 




YES, 

FROM - TO ♦ (ASC.NOOE) 


B 

00050 

0042 7 

00225 

00076 







00428 

00916 

00226 







00429 

00916 

00077 


TIME 

OF ENO OF PASS IN SECONDS 




00430 

00055 



SAVE 

TIME OF ASC.NOOE AND POS. ♦ VEL. 




C0431 




VECTORS AT THIS TIME FOR LATER USE 


B 

00646 

0043? 

00225 

00757 







00433 

00757 

00758 







00434 

00757 

00C56 







00435 

00757 

00646 







00436 

00054 



SET 

TO GO TO B54 WHEN FINISH ASC.NODE 1 

DATA 



00437 

90013 

00704 


SUNLIGHT CET. 




00438 

9C014 

00908 


SUN 

ENT. CR EXIT OET. 




00439 

00055 

00649 

00649 

WAS 

ENT. OR EXIT MAOE 




00440 




NO 





00441 




YES 



8 

00649 

0044? 

0C229 

00650 


010 

EM. OF, EXIT PRECEDE ASC. NCCE 




0044 3 

0C644 



NO* SE T TO GO TC B644 WHEN FINISH ASC.NOOE 



00444 




DATA, TO PUT ENT. OR EXIT IN NEXT PASS 




00445 




ENT. 

OR EXIT BELONGS IN THIS PASS 


B 

00650 

00446 

00651 



SET 

TC GO TO 8651 WHEN FINISH ENT/fcXIT 

DAT 



00447 

00056 

00668 

00668 

IS this entrance 




00448 




YES. 

SUN ENTRANCE NAS MADE 


B 

0066 7 

00449 

00935 








00450 

9C062 

00000 


COMPUTE, STORE 0R83 SUN ENTRANCE OATA 

ITEM 



00451 

00085 

00673 

00673 

HAS 

AN EXIT OCCURRED IN THIS PASS 




0045? 

00228 



NO. 

STORE SECONDS OF FIRST ENTRANCE 




00453 

00454 


K - COCOC 
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PAGE 007 


e 

00673 



AN EXIT HAS ALREADY OCCURRED 

B 00673 

00655 

R 

00919 

0C228 


STORE SECONDS CF SECOND ENTRANCE 


00656 

E 

00669 





00657 

B 

00666 



SUN EXIT WAS MADE 

B 00668 

00658 

R 

00733 

00936 




00659 

F 

00000 

90062 

00000 

COMPUTE, STORE 0RB3 SUN EXIT DATA ITEM 


00660 

C 

00919 

00085 

00676 00676 

HAS A SECOND ENTRANCE OCCURRED YEI 


00661 

R 

00918 

00228 


NC. STORE SECONDS OF FIRST EXIT 


00662 

E 

00669 





00663 

B 

00676 



SECOND ENTRANCE HAS ALREADY OCCURRED 

B 00676 

00666 

R 

00920 

00226 


STORE SECONDS CF SECOND EXIT 


00665 

E 

00669 





00666 

B 

00651 



GET TIME CF ASC.NCDE AND POS.+ VEL. 

b 00651 

00667 

R 

00757 

00055 


VECTORS AT THIS TIME (TO 8E USED TO 


00668 

B 

00652 



COMPUTE ASC. NODE DATA ITEM) 

B 00652 

00669 

G 

00758 

00965 

00757 



006 70 

H 

00225 

00757 

00758 



C0671 

A 

0075 7 

00757 

00056 



006 / 2 

C 

00098 

00757 

C0652 



00673 

B 

00668 




B 00668 

00676 

R 

00637 

00900 


SUV -1 


00675 

F 

00768 

90015 

00915 

COMPUTE PER CENT CF PASS IN SUN 


006/6 

A 

00736 

00736 

00056 

AOD 1 TO PASS NUMBER 


00677 

R 

00733 

00931 




00678 

F 

00000 

90062 

00000 

COMPUTE ♦ STORE QRB3 ASC. NODE DATA ITEM 


006/9 

R 

00915 

00916 


SECONDS OF START CF NEW PASS 


00680 

R 

00917 

00005 


SET SECONDS OF SUN ENTRANCES 


006B1 

K 

00918 

0C085 


AND EXITS IN NEW PA$S=-9'$ 


006H? 

R 

00919 

0C086 




006B3 

R 

00920 

00085 




00606 

E 

00667 





00685 

B 

00052 



SIGN CHANGE WAS ♦ TO - 

b 00052 

00606 

R 

00733 

00933 




0068/ 

F 

00000 

9C062 

OOCOO 

COMPUTE ♦ STORE CR83 OESC.NODE DATA ITEM 


00688 

8 

00666 




b 00666 

00689 

R 

00669 

00056 


SET TO GO TO B56 WHEN FINISH ENT/EXIT OATA 


00690 

F 

00909 

90013 

00706 

SUNLIGHT CET. 


00691 

F 

00916 

90016 

00908 

SUN ENTRANCE-EXIT DET • 


0069? 

C 

00916 

00055 

00667 00668 

WAS ENTRANCE OR EXIT MADE 


0069 3 

B 

00056 




B 00056 

00696 

R 

00903 

00906 


Z -1 * Z 1 


00695 

R 

00908 

00909 


sun-1 * sun i 


00696 

R 

00633 

00900 


J.D. -1 PREVIOUS 0R83 OUTPUT TIME 


0069 7 

R 

00636 

00901 


SEC. -1 


00698 

R 

00639 

00905 


LAT -1 


C0699 

f 

00913 

9C016 

00906 

NP CR SP CROSSING DET. 


C0500 

C 

00913 

0C055 

00678 C0679 

WAS CROSSING MAOE 


C0501 

E 

00680 



NC 


00502 

8 

00678 



YES. NORTH POINT WAS CROSSED 

B 00678 

00503 

R 

00733 

00932 




00506 

F 

00000 

90062 

00000 

COMPUTE, STORE 0RB3 NORTH POINT DATA ITEM 


00505 

E 

00680 





CC506 

8 

00679 



SOUTH POINT WAS CROSSED 

B 00679 

00507 

R 

00733 

00936 




00500 

F 

00000 

90062 

00000 

COMPUTE, STORE 0RB3 SCUTH POINT CAiA ITEM 


00509 

B 

00680 




B 00660 

00510 

R 

00905 

0C276 


LAT -1»LAT 1 


00511 

R 

00900 

00700 


J.D. —1* J.D. 1 


00512 

R 

00901 

00701 


SEC. -1* SEC. 1 


00513 

B 

00671 




B 00671 

00516 

R 

00715 

00206 




00515 

R 

00716 

0C205 




0051b 

c 

00755 

90050 

00715 

INERTIAL RT. AS. * ARC TAN (Y/X) 


005 1 7 

M 

00755 

00755 

00100 

INERTIAL RT. AS. TO DEG. 


00518 

R 

00715 

00209 




00519 

R 

00716 

00208 




00520 

F 

00756 

9C050 

00715 

VELOCITY RT. AS. « ARC TAN (Y CCT/X DOT) 


00521 

H 

00756 

00756 

00100 

VELOCITY RT. AS. TO DEG. 


00522 

M 

00715 

00206 

00208 

X DOT SQ. 


0052 3 

M 

00716 

00209 

00?09 

Y DOT SO. 


00526 

A 

00715 

0C715 

007 16 

X OCT $0. ♦ Y COT SQ. 


00525 

H 

00716 

00210 

00210 

1 DOT SQ. 


00526 

A 

00716 

00715 

00716 

X DOT SO. ♦ Y COT SQ. ♦ Z DOT SC. 


00527 

F 

00758 

9C031 

00716 

SQ. RT. OF ABOVE * MAG. OF VELOCITY 


00528 


K - COCCC 


PAGE 007 



K ® COOOC 


PAGE 008 



M 

00758 

00758 

00859 


C 

00795 

00758 

00037 


R 

00 758 

00795 


• 

B 

00037 




F 

00716 

90031 

00715 


R 

00715 

00210 



F 

00757 

90050 

00715 



00757 

00665 

00*83 


E 

00*62 



• 

8 

00*83 




S 

00757 

00757 

00666 

• 

B 

00*82 




M 

00757 

00757 

00100 


M 

00751 

007*5 

00100 


M 

00752 

007*6 

00100 


F 

00000 

90053 

00000 


C 

00797 

00767 

00053 


R 

00767 

00797 


• 

B 

00053 




C 

00797 

00765 

000*3 


R 

00765 

00797 


• 

B 

000*3 




C 

00799 

00766 

00039 


R 

00766 

00799 


• 

B 

00039 




H 

0075* 

00766 

00790 


F 

00000 

90056 

00000 


F 

00000 

90055 

00000 


M 

00770 

00770 

00100 


M 

00771 

00771 

00100 


F 

00000 

90057 

00000 


F 

00717 

9005* 

00761 


M 

00717 

00717 

00717 


D 

00760 

00720 

00717 


C 

00796 

00760 

000*1 


R 

00760 

00796 


• 

B 

000*1 




M 

00761 

00761 

00100 


M 

00750 

0C72O 

00101 


F 

00000 

900*9 

00000 


E 

00675 



• 

B 

00677 




M 

00735 

00205 

00101 


M 

00736 

00206 

00101 


M 

00737 

00207 

00101 


M 

00738 

00206 

00859 


M 

00739 

00209 

00859 


M 

007*0 

00210 

00059 


A 

00705 

0070* 

00080 


F 

007*2 

90061 

00709 


R 

00733 

00930 



F 

00000 

9006* 

00000 

• 

B 

00676 




« 

00703 

0070* 



A 

00701 

00701 

00725 


E 

00*9* 



• 

8 

00*66 




A 

00701 

00701 

00136 

• 

B 

00*9* 




F 

0070* 

9C003 

00700 


C 

001*8 

00700 

00692 00051 


C 

001*9 

00701 

00692 00051 


E 

00692 




• 8 

00696 




C 

0020* 

00703 

0069* 

0065* 

c 

00172 

00122 

00699 

00699 

E 

00698 




• B 

0069* 




F 

00205 

9000* 

0020* 


F 

00275 

90012 

0020* 


C 

00172 

00122 

00699 

00699 

• B 

00048 





MAG. OF VEl. IN KM/SEC 
DOES MAG. CF VEL. EXCEED 99.9 
SET MAG. CF VEL. * 99.9 

B 00037 

LET X - SC. RT. OF (X DOT SO. ♦ Y DOT SO.) 

LET Y » Z DOT 

THEN VEL. DECL. * ARC TAN IY/X) 

DOES DECL. EXCEED PI RADIANS 


VEL. DECL. EXCEEDS PI RADIANS B 00*83 

(VEL. DECL. > - (2 PI ) 

NC B 00*82 

VEL. DECL. TO DEGREES 
LONG. TO DEGREES 
GEOC. LAT. TO DEG. 

BILM (COMPUTES L,8, B/00, F SUB 
THETA, F SUB PHI, F SUB R) 

DOES B/BO EXCEED 99.999 
SET B/BO * 99.999 

B 00053 

DOES L EXCEED 99.999 
SET L = 99.999 

B 000*3 

DOES B (GAUSS) EXCEED .99999 
SET B * .99999 GAUSS 

B 00039 

CHANGE B FROM GAUSS TO GAMMA UNITS 
COiPUTE GREENWICH HOU ANGLE 
F SUB C (COMPUTES REAL FIELD RT.AS.AND DEC 
REAL FIELD RT. AS. TO DEG. 

REAL FIELD DECL. TO DEG. 

COMPUTE GEOMAGNETIC LAT. AND LONG. 

COS (GEOMAGNETIC LAT.) 

CCS SQ. (GEOM. LAT.) 

RC * R/COS SQ. (GEOM. LAT.) 

DOES R SUB 0 EXCEED 99.99 
SET R SUB 0 * 99.99 

8 000*1 

GEOMAGNETIC LATITUDE TO DEG. 

RADIAL DIST* TO KM. 

WRITE DATA RECCRO ON M.O.T. 

GO TO B677 (0RB3) OR TO B676 (NC 0RB3) 

COMPUTE REMAINING 0RB3 DATA FOR THIS TIME B 00677 

CONVERT SATELLITE POSITION 
VECTOR TC KM. 

CONVERT SATELLITE VELOCITY 
VECTCR TC KM/SfcC 

OUTPUT TIME IN E.T. 

GET SUN POSITION VECTOR AT THIS TIME 
STORE 0RB3 REGULAR SATELLITE DATA ITEM 

B 00676 

SET TIME FOR WHICH DATA STORED 
INCREASE TIME BY OUTPUT INTERVAL 


R IS NOT WITHIN ANY REQ. RANGE B 00*86 

INCREASE TIME 0Y SEARCH INTERVAL 

B 00*9* 

REDUCED J.O. , SEC. TO C.U.T. 

DU J.D. EQUAL END J.D. 

YES. 00 SEC EQUAL END SEC 

NO. GO TO 6691 ( I F WRITING WMAP AND/OR SPRF 

OR TC B690 (IF WRITING M.O.T. CNLY) 

COMPUTE DATA FCR SPRF TAPE AND/CR WMAP b 00696 

IS T I ME* T I ME CF LAST M.O.T. DATA COMPUTED 
YES. IS SPRF TAPC BEING WRITTEN 
YES. STORE OATA IN SPRF RECORO 

NO OATA HAS BEEN COMPUTEO FOR THIS TIME B 0069* 

COMPUTE PCS. ♦ VEL. VECTORS 
CGMPUTfc LONGITUDE, LATI lUOE, AND HEIGHT 
IS SPRF TAPE BEING WRITTEN 

YES B 000*8 


K * COOOC 
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A-8 


00629 

005 30 

006 1 1 
0053? 
00533 
0053* 
00535 
CG536 
00537 

0053B 
00539 
005*0 
005*1 
005*? 
C05* 3 
005** 
005*5 
005*6 
005* / 
005*8 
005*9 

00550 

00551 

00552 

00553 
0055* 
00555 
00566 
00557 

00568 

00569 

00560 

00561 
0056? 
0056 3 
0056* 

00565 

00566 

00567 
00668 

00569 

00570 

00571 
0057? 
oo5n 
005 7* 
005 f*y 
00576 

005 n 

00578 

00579 

00580 

0058 1 

00582 

00583 
0058* 

00585 

00586 

00587 

00588 

00589 

00590 

00591 

00592 

0J593 

0059* 

C0595 

00596 

00597 

00598 

00599 

00600 
00601 
0060? 
00603 


K - CCCCC 


PAGE 


009 


M 00752 00746 00100 
M 00750 00720 00101 
F 00000 90053 00000 
C 00799 00766 00047 
R 00766 00799 

• 6 00047 

C 00797 00765 00698 
R 00765 00797 
« B 00698 

H 00000 90040 00000 
C 00168 0C055 00699 
E 00021 

• B 00699 

R 00635 00136 
R 00630 00200 
R 00631 00201 
R 00239 00207 
F 00219 90007 00238 
C 00219 00055 C0017 
E 00653 

• 6 00017 

M 00249 00225 00076 
A 00249 00249 00226 
A 00249 00249 00077 
R 00757 00055 

• B 00659 

6 00758 00225 00757 
H 00945 00757 00750 
A 00757 00757 00056 
C 00098 00757 00659 
R 00024 00019 
F 00241 90013 00204 
F 00242 9C014 00240 
C 00242 00055 00658 
E 00657 

• B 00658 

C 00949 00229 00656 
R 00024 00653 
E 00655 

• B 00656 

R G0029 00655 
C 00242 00056 00026 

• B 00025 

C 00251 00085 00027 
F 00329 90006 OOOOC 
R 00250 00228 
E 00029 

ft B 00027 

F 00340 90006 OOCOO 
R 00252 00228 
E 00029 

• B 00026 

C 00252 00085 00028 
F 00351 900G6 00000 
R 00251 00228 
E 00029 

• B 00028 

F 00362 90006 00000 
R 00253 00228 
E 00029 

• 6 00655 

R 00757 00055 

• B 00654 

G 00758 00945 00757 
H 00225 00757 00758 
A 00757 00757 00056 
C 0009 8 00757 00654 

• B 00657 

R 00637 00240 
F 00245 90015 00248 
F 00000 90008 00000 
F 00000 9C0C9 00000 

K 



GEOC.LAT. 70 DEGREES 


00604 


GEOC. DISTANCE TO KM. 


006U5 


ENTER BILM, TO COMPUTE L, B 


00606 


DOES B (GAUSS) EXCEED .99999 


0060 7 


SET B * .99999 GAUSS 


00608 



B 00047 

00609 


DOES L EXCEED 99.999 


00610 


SET L * 99.994 


00611 


STORE LONG. »IAT. * 0 1 ST . » L * AND B FGR 

B 00698 

00612 


SPRF, WRITE RECORD IF FULL ONE STORED 


00613 

00699 

IS WMAP BEING WRITTEN 


00614 


NO 


00615 


COMPUTE WMAP DATA FOR OUTPUT TIME 

B 00699 

00616 


DELTA T ( SEC )* WMAP OUTPUT INTERVAL 


00617 


J.D. 1 CURRENT WMAP OUTPUT TIME 


00618 


SEC. 1 


00619 




00620 


sign-change det. 


00621 

00018 

HAS SIGN OF l CHANGED 


00622 


NC 


0062 3 


YES, FROM - TO + (ASC. NODE) 

B 00017 

00624 


CHANGE TIME OF END 


00625 


OF PASS TO SECONDS 


00626 


AND ROUND TO CNE DEC. PLACE 


00627 




00628 


SAVE TIME OF ASC. NODE AND POS. ♦ VEL. 

B 00659 

00629 


VECTORS AT THIS TIME FOR LATER USE 


00630 




006 3 1 




006)2 




0063) 


SET TO GO TO B19 WHEN FINISH ASC. NODE DATA 


00634 


SUNLIGHT CET. 


00635 


SUN ENT. OR EXIT CET. 


006)6 

00658 

WAS ENT. OR EXIT MADE 


00637 


NO 


006 3 8 


YES 

B 00658 

006)9 


DID ENT. OR EXIT PRECEDE ASC.NCCE 


00640 


NO. SET TO GO TC B653 WHEN FINISH ASC. NODE 


0064 1 


OAT A * TO PUT ENT. OR EXIT IN NEXT PASS 


00642 


ENT. OR EXIT BELONGS IN THIS PASS 

B 00656 

00643 


SET TO GO TO B655 WHEN FINISH ENT/EXIT DAT 


00644 

00026 

IS THIS ENTRANCE 


00645 


SUN ENTRANCE WAS MADE 

B 00025 

00646 

00027 

HAS A SUN EXIT OCCURRED 


0064 7 


NO. COMPUTE OATA FOR FIRST ENTRANCE 


00o48 


STORE SECONDS CF FIRST WMAP SUN ENTRANCE 


00649 




00650 


AN EXIT HAS OCCURRED* SO 

B 00027 

0065 l 


COMPUTE DATA FOR SECOND ENTRANCE 


0065? 


STORE SECONDS OF 2ND WMAP SUN ENTRANCE 


00653 




00654 


SUN EXIT WAS MADE 

B 00026 

00655 

00028 

HAS A SECOND ENTRANCE OCCURREO 


00656 


NC. COMPUTE DATA FOR FIRST EXIT 


00657 


STORE SECONDS OF FIRST WMAP SUN EXIT 


00650 




00659 


SECOND ENTRANCE HAS OCCURREO 

B 00026 

00660 


COMPUTE DATA FTR SECOND EXIT 


00661 


STORE SECONDS CF 2ND WMAP SUN EXIT 


00662 




00663 


GET TIME CF ASC.NCOE ANO PCS. ♦ VEL. 

B 00655 

00664 


VECTORS AT THIS TIME (TO BE USED TO 


00665 


COMPUTE ASC. NCOE OATA) 

B 00654 

00666 




0066 7 




00668 




00664 




006 70 



B 00657 

006 71 




006 72 


COMPUTE PER CENT CF PASS IN SUN 


0067) 


PRINT REM. OATA FOR THIS PASS 


006 74 


PRINT END-OF-PASS DA - 


006 75 


■ coooc PAGe 009 


A-9 


K • COCCC 


PAGE OlO 


C 00223 002 l A 0C012 SHOULD A$C. NCLE MONITOR LINE BE PRINTED 

A 00223 0022 3 00109 PASS NC. FOR NEXT NON I T OR PRINT 

T ASCENDING NODE 

P 00285 00056 PA i 50 20 70 30 30 3030 7040 5030509 SSNNNNNNNNNNN 

fc 00012 GO BACK TC START KEN PASS 


• B 00018 
F 00307 
R 00315 
R 00316 

• B 00653 
R 00029 
F 0024 1 
F 00242 
C 00242 

• B 00019 
K 00238 
R 00240 
B 00049 
R 00633 
R 00634 
R 00639 
F 00264 
C 00264 
E 00034 


90006 00000 

OC055 

00055 

00019 

90013 0C2O4 

90014 00240 
00055 00025 00026 


00261 

00262 

00260 

90016 00263 
00055 00033 00032 


SIGN CHANGE WAS ♦ TO - 
COMPUTE OESC. NODE DATA 
HAKE LATITUDE AT TINE OF 
DESCENDING N00E*0 

SET TC GO TO B19 NHrN FINISH ENT/EXIT DATA 
SUNLIGHT DET. 

SUN ENT. OR EXIT OET • 

WAS ENT. OR EXIT HADE 

SET 2-1*21 

SET SUN -l * SUN l 

J.D. -1 PREVIOUS WRAP OUTPUT TINE 


8 00016 


J.D. -1 PREVIOUS 

SEC. -1 
LAT. -1 

NP OR SP CROSSING OET, 
WAS CROSS’ NO MADE 
NO 


B 00033 

F 00296 90006 00000 
E 00034 


YES. COMPUTE DATA FOR NORTH POINT 


B 00032 

F 00318 90006 00000 
B 00034 
R 00260 00276 
R 00261 00200 
R 00262 00201 
F 00000 90010 OOCCO 
C 00224 00055 00470 00470 
R 00224 00056 
T 

P 00000 00056 PA 
T DATE 

P 01617 00056 PA 0607 

T HR N I LONG . DEG LAT. DEG 
P 00108 0C056 PA 150905 
T 

P 04000 00056 PA 010 303040503050902 
T 

P 00000 OC058 PA 

T YKWOOA 

P 00108 00056 PA 151515150; 

B 00470 

C 00213 00217 00C21 
F 00000 90006 00000 
A 00273 00273 00056 
R 00015 0C013 
R 00024 00691 
B 00021 

A 00201 00201 00136 
F 00204 90003 00200 
C 00148 00200 00015 0C031 
C 00149 00201 00015 00031 
E 00015 

B 00051 

C 00402 00400 00479 
E 004B0 


YES. CCNPUTE DATA FOR SOUTH POINT 

LAT -1 * LAT 1 
TIME CF LAT -1 
* TIME OF LAT l 
EDIT AND STORE TYPE 1 DATA 
IS THIS FIRST DATA POINT 
YES. PRINT IT ON-LINE 


YMMOOA HR MI SS.SS PASS 
1515151505 


SNNNNNNNA 


LONG.OEG LAT.OEG 
SSSSN 


IS RIGHT HALF CF PAGE FULL 
YES. PRINT PAGE 

( CNTR . OF FULL PAGES PRINTEO) ♦ 1 
SET B24 - B6<n 

YES. INCREASE TIME BY OELTA T 
REDUCED J.O.t SEC. TO C.U.T. 

00 J.D. EOUAL END J.D. 

YES. DC SEC. ECUAL END SEC. 


ALL DATA HAS BEEN WRITTEN ON ORBIT TAPE 
WAS LAST M.O.T. PAGE FULL 
YES 


• B 00479 

S 00401 00402 00400 
T 

P 00000 00401 T I 

• B 00480 

T 1 ENC 

P 00000 00056 Tt 
P 00000 00068 T 1 
R 00727 0C056 
C 00172 00121 00693 00687 
F 00000 90065 00000 

• 8 00687 


OF BLANK LINES TO GO CN M.O.T. 


IS 0RB3 TAPE BEING WRITTEN 

YES. WRITE END RECORDS ON CR63« ECF , RENIN 


PAGE 010 


A- 10 


HIM 




K * COOOO 


PAGE Oil 


r 

0016' 30055 00693 00693 

IS WMAP BEING WRITTFN 


00751 

t 

00697 

NO. END OF *UN 


00752 

B 

00693 

S°R. T TAPE AND/CR WMAP IS BEING WRITTEN 

B 00693 

007*53 

C 

00728 00055 00697 00697 

IS IT FINISHED 


00756 

R 

00727 00056 

NC.SET IND. THAT ORBIT TAPE IS FINISHED 


00755 

E 

00696 

AND GO FINISH SPRF AND/OR WMAP 


00756 

6 

00031 


B 00031 

00/57 

C 

00172 0012? 00023 00023 

IS SPRF TAPE BEING WRITTEN 


00756 

F 

00000 90038 00071 

YES. WRITE END RECORDS CN SPRF , EOF . RE W IND 


00759 

C 

00168 0005V 00023 00023 

IS WMAP BEING WRITTEN 


00760 

E 

00689 

NC 


00761 

B 

00023 


B 00023 

00762 

M 

00269 00148 00076 

change time of end 


0076 J 

A 

00269 00269 00169 

CF PASS TO SECONOS 


00766 

A 

00269 00269 00C77 

ANO ROUND TO CNE DEC. PLACE 


00765 

R 

00637 00260 



00766 

F 

00265 9 CO 1 5 00268 

COMPUTE PER CENT CF PASS IN SUN 


00 7f> 7 

F 

00000 90008 00000 

PRINT ANY REMAINING TYPE 1 


00768 

F 

00000 90009 00000 

ANO TYPE 2 DATA 


00769 

C 

00223 00216 00673 

SHOULD ASC. NODE MONITOR LINE BE PRINTEO 


00770 

A 

00223 00223 00109 

PASS NC.» FOR NEXT MONITOR PRINT 


007 71 


T ASCENDING NODE 

. . • 


0C772 

P 

00285 00056 PA 15020703030303070605030509 SSNNNNNNNNLNN 


0077 3 

B 

00673 


B 006 73 

00776 


T1 

THE END 


00775 

P 

00000 00056 TO 



007/6 

P 

ooooo oco68 rn 



00777 

B 

00689 


«* 006 J 9 

00778 

C 

00727 00055 00697 00697 

IS M.C.T. FINISHED 


00779 

R 

00728 00056 

NC. SET IND. THAT WHA? ANO/OR SPRF TAPE 


00780 

E 

00690 

FINISHED AND GO FINISH M.G.T. 


00781 

B 

00697 


8 0069 7 

00782 


T 



00783 

P 

OOOOO 0C058 PA 



00 786 


T THE END 



00785 

P 

OOOOO 00056 PA 



00706 

P 

OOOOO 00063 TEB 



C0787 

C 

00002 0C055 00663 

OCES LOC. C0002 CONTAIN 0 


00788 

E 

00002 

YES. ENO OF RUN 


00789 

B 

00683 

JUMP TO ANOTHER PROGRAM 

B 00683 

CC79C 

J 

00002 



C 0 7 5 1 





00792 

B 

00035 

ELIMINATE OVERFLOW OR UNDERFLOW ♦ CONTINUE 

b 00035 

00793 

9 




00796 





00795 


BINARY CARO 



00796 


BINARY CARO 



0079 7 





0079H 

5 

1 



0079 J 


00009 

CONE HERE FROM INITIALIZE PROG. 9 OR C K .N 

B 00009 

G08C0 



PROG. P FOR 0RB1 IF TAPE CHECK FOUNL 


00PC1 


T TAPE CHECK ON BINARY GRB1 

TAPE CN TE (NORPALLY B-3) 


008C2 


OOOOO 0C056 PA 



0080 3 


00003 



00806 


00010 

CCME HERE FROM SUN TAPE READ F. 

B OOCIC 

CCB05 



IF TAPE CHECK FCIND 


00806 


T TAPE CHECK ON SCO SOLAR PERTURBA f ICNS TAPE UN TF 1 NORMALLY B-4) 


00807 


OOOOO 00056 PA 



00608 


00003 



CCBC9 


00005 


B 00005 

00610 


T FIRST MJRO OF TITLE RECORC 

ON TE (NORPALLY B-3) IS NOT 0RB1 


0081 1 


OOOOO 00056 PA 



00812 


OOOOO 0C063 TEB 



00813 


00003 



00816 


00006 


F> 00006 

00815 


TREF.OATE ON 0RB1 TAPE ON TE 

OCES NCT ECUAL CATE CN SAT. 10. CARC 


00816 


OOOOO 0C056 PA 



00617 


OOOOO 00063 TEB 



00818 


00003 



00819 

B 

00007 


B 00P07 

00820 


TSTART TINE OF RUN IS TCO EARLY FOR CRB1 TAPE ON TE (NORMALLY B-3) 


00621 


K - COOCC 


PAGE Oil 



A-ll 


K = COCOC 


PAGE 012 


P 00000 0C056 PA 
P 00000 00063 TEB 
E 00003 

B 00*76 

TEND TIME OF RUN IS TOO LATE FOR CRBi TAPE ON TE (NORMALLY 0-3 ) 
P 00000 00056 PA 
P 00000 00063 TEB 
E 00003 


B 00*76 


00622 

00023 

0062* 

00826 

00826 

00827 

00028 

00829 


B 00038 

T NO R.A.M.S. 

P 00700 0C056 PA 
E 00003 


B 00038 


DATA IN TABLE FOR 
151508C* 


J.D. = 


SSSN 


00830 

C0831 

00832 

00833 


00000 ----- 
03820 

FORTRAN RECORO FORMAT 
631115 
A.C* MABRY 
00006 +00000000*00 

00007 +10CCOOOC+01 

00008 +30001000+05 

00009 +*0970000+0* 


BINARY CARD 


30 00001 


008 ^* 

00835 

0083b 

00837 

C0838 

00839 

008*0 

008*1 

008*2 

008*3 



Q 

90000 

oooco 






008** 

• 

B 

00001 






B 00001 

008*5 


R 

00010 

0C0C6 



CLEAR COUNTER FCR 10001 TO 0 


008*6 


G 

00013 

9C0CC 

00008 


GET FIXED 

POINT 1 


008*7 

• 

B 

0001* 






B 0001* 

006*8 


2 

00012 

00013 



ADD FIXED 

POINT 1 


008*9 


A 

OOCIO 

00010 

00007 


ADD 1 TO 

1C001 COUNTER 


0C850 


C 

00010 

0C0C9 

00003 

0001* 

HAS 10001 

BEEN REACHED 


00851 

• 

N 

00001 




YES 


H 00001 

00052 


R 

00016 

00006 



CLEAR CK. 

SUM STORAGE TO 0 


00853 


R 

00010 

0C0C6 



CLEAR COUNTER TO C 


C085* 


R 

00015 

00012 



PLT 1C001 

INTO WORD 0 STORAGE 


0085*3 


G 

00005 

OOOCl 

00003 


GET SIZE 

OF DATA CELL 


00856 


X 

00011 

00015 



FLOATING 

INC. TO FIXEO DEC. 


00857 


H 

00001 

OCOO* 

00015 


HOLD CLT 

kORD C 


C0858 


E 

00017 







00859 

• 

B 

00017 






B 00017 

00860 


A 

0000* 

0000* 

00007 


ACD 1 TO 

LOCATION OF WORD 0 


00861 


G 

00013 

00001 

0000* 


GET DATA 

WORDS 


00862 


2 

00016 

0C013 



SUM DATA 

WORDS 


00863 


A 

00010 

00010 

00007 


ADD 1 TO 

CK. SUM COUNTER 


0086* 


C 

00010 

00005 

00003 

00017 

ARE ALL DATA WORDS SUMMED 


00865 


H 

00002 

0000* 

00016 


YES. HOLD 

CUT CK. SUM 


00866 


H 

00003 

0000* 

00015 


HOLD OUT 

LAST WORD OF RECORD 


00867 


E 

00002 







00868 

• 

B 

00011 






ti 00011 

00869 


f 

90000 







C0870 


ThIS CARO FOLLOWED BY BLANK AND INPUT DATA 


00871 

00872 
00673 
0087* 

00875 

00876 

00877 

00878 

00879 
008B0 
00881 
00882 
00883 
0088* 
00685 


K * COCOC 


PAGE 012 


A- 12 


K * OOOOC 


PAGE OOl 


K 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
M 

w 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
W 
W 

V 

V 

V 

V 
w 
w 
w 
w 
w 

M 

w 

w 

V 

V 

V 



functions 

FOR REFINED WORLO MAP 620221 

00001 



ANO FOR 

00002 


R106 MASTER ORBIT TAPE ROUTINE 

00003 




00006 


ARCHIVE 

VERSION • JUNE 1965 

00005 




00006 




0000 7 

00000 

- - 


00008 

VALUE CARDS FOR MASTER ORBIT TAPE EXECUTIVE ROUTINE 

00009 

00002 

♦00000000*00 

NORMAL SETTINGvFOR NO JUMP AT END OF RUN 

00010 

00003 

+00000000*00 


COOli 

00055 

♦oooooooo+ou 


00012 

00056 

♦10000000*01 


00013 

00057 

+20000000*01 


000 16 

0005B 

♦30000000*01 


COO 1 5 

00059 

V50000000+01 


COO 1 6 

00060 

♦26000000*02 


00017 

00061 

♦60000000*02 


00018 

00062 

♦90000000*01 


00019 

00063 

-10000000*01 


CC02C 

00066 

♦ 10000000*03 


00021 

00065 

♦ iOCOOCOO+05 


0002? 

00066 

♦99999999*08 


00023 

00067 

♦70000000*01 


00026 

00069 

♦16000000+02 


00025 

00070 

♦50000000-02 

LEAST TIME CHANGE THAT IS SIGNIFICANT 

00026 



IN INTERPOLATION FOR SP.PTS. (SECONDS) 

00027 

00071 

♦60000000*01 


00028 

00072 

♦68000000*02 

NO. OF RECORDS PER PAGE ON TD 

00029 

00073 

♦15000000*02 


00030 

00075 

-20000000*01 


00031 

00077 

♦50000000-01 


00032 

00079 

♦50000000*00 


000. 3 

00080 

♦35000000*02 

FACTOR TO ADD TO 'J.T.TO GET E.T.(SEC) 

000 36 

00081 

+10000000+01 

SUN TAPE IDENT . 

00035 

00083 

-10000000*01 

NO. STORED IN LGC. 00000 IF TAPE CHECK FOUND 

00036 

00086 

♦10000000+02 

NO. OF TIMES TO TRY TO READ TAPE RECORD 

00037 

00085 

-99999999*08 

START-OF-PASS SETTING OF SUN ENT, EXIT TIME 

00038 

00089 

♦99900000+03 

SUN PER CT. FOR 0RB3 REC. WITH NC ASC. NOD 

00039 

00090 

♦25600000+03 

NO* OF WORDS IN GRB3 DATA RECORD 

C0060 

00091 

♦25300000*03 

NO. OF DATA WORDS IN 0RB3 DATA RECORD 

00061 

00092 

♦12000000+02 

NO. OF DATA ITEMS IN 0RB3 OATA RECORD 

00062 

00093 

♦21000000+02 

WORDS/DATA ITEM IN 0RB3 RECORD 

0006 3 

00096 

♦16000000+02 

WORDS PER DATA ITEM IN 0R83 RECCRC 

00066 



THAT ARE A FUNCTION OF TIME 

00065 

00097 

♦99999900+06 


00066 

00098 

♦11000000*02 


CC067 

00108 

♦10000000*06 

NO. BY WHICH TO MULT. KM. OF HEIGHT ♦ RANGE 

00068 

00109 

♦10000000*02 

NO. OF PASSES BETWEEN ASC. NODE MONITOR PRI 

00069 

00110 

REF 

TYPE OF MAP (FOR 

00050 

00111 

I NED 

PRINTOUT ON FLY PAGE) 

00051 

00195 

♦10000000*01 

SET FOR INTERVAL CORE DUMPS ON TAPE 

00052 

00196 

♦10000000*02 

MAX. NO. OF INTERVAL CORE DUMPS 

00053 

00121 

♦91000000*02 

1 (ALPHABETIC) 

00056 

00122 

♦92000DOC+02 

2 (ALPHABETIC) 

00055 

00791 

♦10000000*06 

NO. OF ADDITIONS TO MAKE FOR DELAY 

00056 

00202 

♦50000000-02 

ROUND VALUE FOP MIN. 

00057 

00212 

♦50000000*01 

NON-DATA LINES/PAGE OF TYPE 1 OATA 

00058 

00220 

♦15000000*02 

MAX. NO. OF END-CF-PASS DATA LINES PER PAG 

00059 

00227 

♦50000000-02 

ROUND VALUE FOR SEC. 

00060 

00602 

♦67000000*02 

OATA RECORDS PER PAGE ON TI 

00061 

00702 

♦50000000-01 

ROUND VALUE FOR OUTPUT MIN. 

0006? 

00730 

SPRF 

FORM OF OATA IDENT. FOR SPRF TAPE 

00063 

00731 

0R3A 

FORM OF DATA IDENT. FOR 0RB3 TAPE 

00066 

00785 

♦30000000-02 

ERR *.003 (INPUT TO BILM) 

00065 

0G6U 

-rOOOOOOOO+OO 

SAT.IOENT. TO PRINT ON FLY PAGE 

00066 

00612 

♦00000000*00 

SAT. IDENT. FOR PAGE HEADER ON TI 

C0067 

00616 

♦60000000*05 


00068 

00635 

-PE 

ORBIT THEORY IDENTIFICATIONS 

00069 

00636 

T. 

FOR FLY PAGE PRINTOUT 

00070 

00637 

-MCO 


00071 

00638 

I T. 


00072 

00639 

-BRW 


00073 

00660 

R.T. 


00076 

00661 

-HST 


00075 

00662 

T. 


000 76 

00695 

♦00000000*00 

K « 

0007 7 

00696 

♦00000000+00 

J t 

00078 

00697 

♦10000000*01 

AND I VECTORS 

00079 


t 


J 


K * 00000 


PAGE OOi 


B-l 





K 


00000 


PAGE 00.? 


V 00498 +00000000+00 00080 

V 00499 +00000000+00 00081 

V 00660 +10000000+04 1000 0008? 

V 00661 +35000000+03 NO. OF WORDS IN SPRF TAPE RECORD 00083 

V 00795 +99900000+02 MAX. MAG. OF VEL. VECTOR ALLOWED 00084 

V 00796 +99990000+02 MAXIMUM RO ALLOWED 00088 

V 00797 ♦ 59999000+02 MAX. L AND MAX. B/80 ALLOWED 00086 

V 00798 +99999000+05 MAX. B ALLOWED (GAMMA) 00087 

V 00799 +99999000+00 MAX. B ALLOWED (GAUSS) 00088 

V 00930 +10000000 + 01 ID. FOR 0RB3 REGULAR SAT. DAI A ITEM 00089 

V 00931 +20000000+01 ID. FOR 0RB3 ASC. NODE DATA ITEM 00C90 

V 00932 +30000000+01 10. FOR 0RB3 NORTH PT. DATA ITEM 00091 

V 00933 +40000000+01 ID. FOR 0RB3 DESC.NODE DATA ITEM 00092 

V 00934 +50000000+01 ID. FOR 0RB3 SOUTH PT. DATA ITEM 00093 

V 00935 +60000000+01 ID. FOR 0P.83 SUN ENTRANCE DATA ITEM 00094 

V 00936 +7000000 J+01 ID. FOR 0RB3 SUN EXIT DATA ITEM 00095 

V 00937 +99000000+02 ID. FOR 0RB3 SPECIAL DATA ITEM 00096 

00097 


K 

00000 

- 

- 

- - - 



00098 

K 

00800 


F0026 - 

CONSTANTS 

POOL FOR MASTER ORBIT TAPE 


00099 

00100 

Q 

90001 

02361 



SINE 


00101 

Q 

90002 

02365 



COSINE 


00102 

Q 

90003 

02341 



SQUARE ROOT F 


00103 

• B 

00001 





B 00001 

00104 

V 

00005 

♦10000000+01 




00105 

V 

00006 

♦20000000+01 




00106 

V 

00007 

+40000000+01 




00107 

V 

00008 

-10000000+01 




00108 

V 

00009 

-20000000+01 




00109 

V 

00010 

+60000000+02 




001 10 

V 

00011 

+90000000+02 


90 DEG. 


001 LI 

F 

00018 

90003 

00062 


MU= GM«* 1 /2 


00112 

D 

00028 

00005 

00017 


FLATNESS COEFFICIENT 


00113 

M 

00029 

00050 

00016 


MOTION OF TAU IN RAD/C. U.T. 


00114 

D 

00032 

00022 

00051 


MILES/C. U.L. 


001 15 

0 

00033 

00015 

00016 


C.U.T./DAV 


00116 

D 

00034 

00016 

00010 


MIN/C.U.T. 


00117 

D 

00052 

00053 

00016 


C.U.T./HR 


001L8 

M 

00035 

00022 

CG052 


(KM/C. U.L. ) (C.U.T./HR) 


00119 

0 

00036 

00035 

00051 


(MI /C. U.L.) (C.U.T./HR) 


00120 

D 

00037 

00019 

00006 


PI 


00121 

M 

00038 

00008 

00019 


-2 PI 


00122 

M 

00039 

00009 

00019 


-4 PI 


00123 

F 

00044 

90002 

00027 


Y COMPONENT OF U2 VECTOR 


00124 

F 

00045 

90001 

00027 


l COMPONENT OF U2 VECTOR 


00125 

M 

00046 

00006 

00019 


4 PI 


00126 

D 

00047 

00005 

00010 


HR/MI N 


00127 

D 

00048 

00056 

00021 


RAD/HR 


00128 

M 

00049 

00020 

00016 


ROTATION CF EARTH IN RAD/C. U.T. 


00129 

S 

00025 

00005 

00028 




00130 

M 

00025 

00057 

00025 


B (POLAR RADIUS J? EARTH IN C.U.L.) 


00131 

M 

00056 

00028 

00028 


F**2 (F » FLATNESS CF EARTH) 


00132 

M 

00023 

00006 

00028 


2F 


00133 

S 

00023 

00023 

00056 


E**2 * 2F - F**2 (E-ECCENTRICITY OF EARTH) 


00134 

0 

00056 

00019 

00007 


PI/2 


00135 

D 

00059 

00022 

00016 


(KM/C. U.L. MC. U.T. /SEC.) 


00136 

D 

00062 

00016 

00022 


(C.U.L. /KM) (SEC/C. U.T.) 


00137 

S 

00060 

000 u 

00C60 


90-78.2 


00138 

D 

00060 

00060 

00021 


GEOC. COLATITUDE OF NORTH GEOMAG. POLE (RAO. 


00139 

0 

00061 

00061 

00021 


LONG. OF NORTH GEOMAG. POLE (RAD.) 


00140 

E 

00002 






00141 

K 

00015 






00142 

V 

00000 

+86400000+05 


SCC/OAY 


00143 

V 

00001 

+80663200+03 


SECONDS/C. U.T. IC.U.T. « 


00144 






CANONICAL UNIT OF TIME) 


00145 

V 

00002 

♦29700000+03 


i/F 


00146 

V 

00004 

♦62831853+01 


2 PI 


00147 

V 

00005 

♦72921159-04 


ROTATICN OF EARTH IN RAD/SEC 


00148 

V 

00006 

♦57295780+02 


OEG/RAD 


00149 

V 

00007 

♦63783880+04 


KILOMETERS/C. U.L. (C.U.L. * 


00150 






CANONICAL UNIT OF LENGTH) 


00151 

V 

00009 

+67108664+08 


2**26 


00152 

V 

0001 1 

♦20000000+01 


K« DEG. OF POLYNOMIAL 


00153 

V 

00012 

♦609X5752*00 


23 DEG. 26 MIN. 34.795 SEC. 


00154 

V 

00015 

♦00000000*00 


TQL. FOR MAG. OF (RXU) 


00155 

V 

00016 

♦00000000+00 


TOL. FOR (UNIT R) OOT (U) 


00156 

V 

00025 

+10000000+01 


X COMPONENT OF U1 VECTOR 


00157 




K * 

00815 


PAGE 002 



B-2 








PAGE 003 


V 00026 

V 00027 

V 00028 

V 00035 

V 00036 

V 00038 

V 00039 

V 00042 

V 00043 

V 00045 

V 00046 

V 00047 

K 00000 
K 01000 

Q 00006 
0 00007 

• B 0G001 

V 00008 

V 00012 
G 00009 
G 00010 
C 00007 
S 00010 
A 00009 

• B 00015 
H 00001 
H 00002 

• B 00013 
M 00009 
0 00009 
D 00011 
A 00011 
H 00001 
E 00002 


♦ 00000000*00 
♦ 00000000*00 
♦ 00000000*00 
♦19910638-06 
♦16093472*01 
♦36000000+04 
♦15000000+02 
♦ 10000000*01 
♦ 10000000*06 
♦78200000*02 
-69000000*02 
♦ 10000000 + 01 


Y COMPONENT OF Ul VECTOR 
Z COMPONENT OF Ui VECTOR 
X COMPONENT OF U2 VECTOR 
MOTION OF TAU IN RAD/SEC 
KM/M! 

SfcC/HR 

OEG/HR 

RAO I U S OF EARTH IN C.U.L. 

gamma/gauss 

GEOCENTRIC LATITUDE OF NORTH GECMAG. POLE 
LCNGITUOE OF NORTH GEOMAGNETIC POLE 
MU»*2=GM 


REOUCED JULIAN DAYS - SECCNOS TO CUT 
SEC/C. U.T. 

SEC/DAY 

REOUCED J.O., SEC • TO C.U.T. F. 

ENTER HITH (Z) = J.D. * (Z+l) * SECONDS 
EXIT WITH (Z> = J.D., (Z+n * SECONDS 
LESS THAN 86.400, (X)=C.U.T. 15 LCCS. 
SECONDS 

DO SEC. EQUAL OR EXCEED ONE DAY 
YES. I SEC )-( SEC. IN OAY ) 

J.D.+l 

J.D. AND 
REDUCED SEC. 

J.D. TO SEC. 


♦ 10000000*01 

♦oooooooc+oo 

00001 00003 

00002 00003 
00010 00005 

00010 00007 
00009 00008 

00003 00009 

00003 00010 

00009 00007 
OCOC9 00006 

00010 00006 

00011 00009 

00004 00011 


B 00005 

C 00012 00010 00014 
E 00013 


ARE SEC. ZERO OR POSITIVE 
YES 


6 00014 

A 00010 00010 00007 
S 00009 00009 00008 
E 00015 


SEC. ARE NEG. 

SEC. ♦ SEC. IN DAY (TO MAKE SEC. POS. ) 
J. 0. - 1 


K 00000 
K 01020 


JULIAN DAYS TO PACKED DATE (YYMMUD) 


0 90001 00151 
Q 90002 00125 
Q 90003 01701 
B 00001 

V 00005 *10000000*03 
G 00007 00001 00003 
A 00007 90002 00007 
R G0CC6 90001 
F 00006 90003 00006 
M 00006 00006 00005 
A 00006 00006 00007 
M 00006 00006 00005 
A 00009 00006 00008 
H 00001 00004 00009 
E 00002 


YEAR OF REFERENCE 
DAYS JAN. 1-DR6F 
DATE FUNCTION 
J.D. TO PACKED DATE F. 

ENTER KITH ( Z )* J.D. -EX I T WITH 
( X ) * YYMMCD • THE CORRESPONDING DATE 
DAYS JAN. 1 THRU DATE 
YREF 

J.D. TO YR,MO»OAY 

Y YOO 

YYMM 

YYMMOC 

YYMMDD 


K 00000 
K 01035 

C 90001 00630 
0 90002 00631 
Q 90003 01066 
Q 90004 01001 
Q 90005 00225 
Q 90006 00226 
Q 90007 00229 
Q 90008 00230 
Q 90010 06001 


SIGN-CHANGE DETERMINATION FOR Z 
J.D. OF Z 1 
SEC. OF Z 1 

INTERPOLATION FOR Z-ZERO 
REDUCED J.D.-SEC • TO C.U.T. 
J.D. TINE CF Z-ZERO, 

SEC. IF Z-ZER0-Z1 

T (C.U.T.) 

PCS.* VEL. VECTORS AT Z-ZERO 
ORBIT GENERATOR 


PAGE 003 





K * 01035 




PAGE 

004 


B 

OOOul 



SIGN-CHANGE GET. FOR 2 



B 

00001 

00231 

V 

00013 

♦00000000+00 

ENTER WITH (Z)*Z -l,(Z+l)=Z l.IF THEIR 

SIG 



00232 

V 

00014 

-10000000+01 

DIFFER OR IF Z i*Z-ZERO, COMPUTE TIME 

.CORRE 



00233 

V 

00015 

♦10000000+01 

VECTORS FOR Z ZERO. EXIT WITH (X) = l 

IF 

CHA 



00234 

V 

00016 

♦40000000+01 

IS -T0+ , 1 X ) *- 1 IF IS >TQ- » ( X ) *0 I»= 

NO 

CHA 



00235 

G 

00017 

00001 

00003 

Z-l 





00236 

G 

00016 

00002 

00003 

2 1 





00237 

C 

00016 

00013 

00005 00006 

IS Z1 = 0 





00238 

C 

00017 

00013 

00007 00021 

YES. TEST Z -1 





00239 

E 

00009 



Z -1*0. ASSUME NO SIGN CHANGE 





00240 

B 

00021 






B 

00021 

00241 

H 

00001 

00004 

00015 

Z1 IS 0,Z-1 IS-. SO ASC.NOOE CROSSED 





00242 

8 

00008 






B 

00008 

00243 

R 

90005 

90001 


J . D • . 





00244 

R 

90006 

90002 


SEC. OF Z l* TI ME CF Z-ZERO 





00245 

F 

90007 

90004 

90005 

TIME OF Z-ZERO IN CUT 





00246 

F 

90008 

90010 

90007 

POS.+ VEL. VECTORS FOR Z-ZERO 





00247 

E 

00002 








00248 

B 

00007 



Z1 IS 0, 



B 

00007 

00249 

H 

00001 

00004 

00014 

Z-l IS+.SO OESC . NODE CROSSED 





00260 

E 

00008 








00251 

B 

00005 



Z1 IS + 



B 

00005 

00252 

C 

00017 

00013 

00009 00010 

TEST Z-l 





00253 

E 

00009 



Z-1=0. ASSUME NO SIGN CHANGE 





00254 

B 

00010 



Z1 IS +.Z-1 IS -, 



B 

00010 

00255 

F 

00000 

90003 

00015 

SO ENTER INTERPOLATION F. TO 





00256 

H 

00001 

00004 

00015 

FIND TIME OF ASC. NODE AND 





00257 

E 

00002 



CORRES.POS.+ VEL. VECTORS 





00258 

B 

00006 



Z1 IS - 



e 

00006 

00259 

C 

00017 

00013 

00011 0U009 

TEST Z-l 





00260 

E 

00009 



Z-1*0. ASSUME NO SIGN CHANCE 





00261 

B 

00011 



Z1 IS-, Z-l IS+, 



B 

00011 

00262 

F 

00000 

90003 

00013 

SO ENTER INTERPOLATION F. TO 





00263 

H 

00001 

00004 

00014 

FIND TIME OF DESC. NODE AND 





00264 

E 

00002 



CORRES. PCS. + VEL. VECTORS 





00265 

B 

00009 






B 

00009 

00266 

H 

0000* 

00004 

00013 

NO SIGN CHANGE 





00267 

E 

00002 








00266 


K 

00000 



- - - - 


00269 

K 

01065 





00270 



F 150 - INTERPOLATION FOR Z-ZERO 



00271 

Q 

90001 

00635 

DELTA T IN SECONDS 

I 


002 72 

Q 

90002 

00630 

J.D. TIME OF Z 

I 


002/3 

0 

90003 

00631 

SEC. FOLLOWING SIGN CHANGE 

I 


00274 

Q 

90004 

01001 

REDUCED J.D. -SEC. TO C.U.T. F 

F 


00275 

Q 

90005 

06001 

ORBIT GENERATOR 

F 


00276 

Q 

90006 

00225 

J. D. TIME OF 

U 


00277 

Q 

90007 

00226 

SEC. 1 ZERO 

0 


00276 

Q 

90008 

00229 

T (CUT ) TIME OF Z ZERO 

0 


00279 

Q 

90009 

00230 

POS.+VEl. VECTORS AT TIME OF Z-ZERO 0 


00260 

Q 

90C10 

00232 

Z-COMFCNENT OF PCS. VECTOR 

0 


00281 

Q 

90011 

00070 

TCL.FCR SIGNIFICANT TIME CHANGE 

(SEC) I 


00282 

B 

00001 


INTERPOLATION FOR Z 


8 0000 l 

00283 

V 

00014 

♦10000000+01 

ENTER WITH (Z) *0 IF SIGN CHANGE 

WAS ♦ TO 


00284 

V 

00015 

♦20000000+01 

{ Z ) * 1 IF WAS - TO ♦. EXIT WITH 

J • U. , SEC • , 


00285 

V 

00016 

+00000000+00 

CUT, POS.+VEL. VECTORS FOR Z ZERC 

IN C-LUCS 


00286 

V 

00027 

♦00000000+00 

Z ZERO 



002B7 

R 

00017 

90001 




00288 

R 

90006 

90002 




00289 

R 

90007 

90003 




00290 

G 

00011 

00001 00003 




00291 

C 

00011 

00016 00005 00005 




00292 

R 

00006 

00007 

SET BEGIN COMMANDS, ACCORDING 



0u293 

R 

00008 

00009 

TO DIRtCTICN CF 7NTERP0L AT I ON 



00294 

E 

00009 





00295 

B 

00C05 




B 00005 

00296 

R 

00006 

00009 




00297 

R 

00008 

00007 




00298 

E 

00009 





00299 


K * 


01065 


PAGE 00'* 


K » 01065 


PACE 005 


B 

00007 




B 

0000 7 

00300 

D 

00017 

00017 

00015 

DELTA T * (OELTA T>/2 



00101 

A 

90007 

90007 

0001 i 

SEC ♦ DELTA T 



00302 

E 

00010 






00303 

8 

00009 




B 

00009 

00304 

D 

00017 

00017 

00015 

OELTA T = (DELTA T)/2 



00305 

S 

90007 

90007 

00017 

SEC - DELTA T 



00301 

B 

00010 




B 

00010 

00307 

F 

90008 

90004 

90006 

J.D.-SEC. TO C . U • T • 



00308 

F 

90009 

90005 

90008 

COMPUTE POS. + VEL. VECTORS 



00309 

C 

90011 

00017 

00002 

In ILL ANY FURTHER TIME CHANGE BE USEFUL 



0*3' 0 

c 

90010 

00027 

00006 000C8 

YES. IS Z*Z-ZERO 



00311 

E 

00002 






00312 


K 

00000 

- 

- - - - - 


* - 


CO 3 1 i 

K 

01100 






00314 




F 061 - SUNLIGHT 

DETERM WITH OBLATE EARTH 



00315 

Q 

9000 i 

00831 


T2 * TOLERANCE FOR (UNIT R) DOT (U> 

I 


0C316 

Q 

90002 

00840 


U1 VECTOR 

I 


C0317 

Q 

90003 

00843 


U2 VECTOR 

I 


00318 

Q 

90004 

00155 


LONG. OF SUN ON REF. DATE (TAU) 

I 


00319 

0 

90005 

00829 


MOTION OF LONG. OF SUN (TAU DOT) 

I 


00320 

Q 

90006 

00630 


Tl. TOLERANCE FOR MAG. OF (R X U) 

I 


00321 

Q 

90007 

02361 


SIN 

F 


0032? 

Q 

90008 

02365 


COS 

F 


00323 

Q 

90009 

02185 


VQ 

0 


00324 

Q 

90010 

02101 


VMV 

F 


00325 

Q 

90011 

02111 


vector magnitude 

F 


00326 

Q 

90012 

02121 


VECTOR DIRECT ICN 

F 


0032 7 

Q 

90013 

02131 


VECTOR ADD 

F 


00328 

Q 

90014 

02151 


DOT PRODUCT 

F 


00329 

Q 

90015 

02161 


CROSS PRODUCT 

F 


00330 

Q 

90016 

02176 


SCALAR MULT. 

F 


00331 

Q 

90017 

02341 


SO. RT. 

F 


00332 

Q 

90018 

02187 


V SUB W 

0 


00333 

Q 

90019 

00826 


F* FLATTENING COEFFICIENT 

I 


00334 

V 

00007 

♦00000000+00 

ZERO 



00335 

V 

00008 

♦10000000+01 

ONE 



00336 

B 

0000 1 



F06 l SUNLIGHT DETERMINATION FUNCTION 


8 OOOCl 

00337 

C 

90006 

00007 

00017 00017 

IS OBLATE CORRECTION TO BE MADE 



00338 

E 

00018 



YES. 



00339 

B 

00017 



NO. 


B 00017 

00340 

R 

00019 

00020 


SET SWITCH TO NO 



00341 

B 

00018 





B 00018 

00342 

N 

00001 



ENTER HERE AFTER FIRST TIME 


N 00001 

00341 

G 

00009 

00001 

00003 




00344 

G 

00014 

00002 

00003 




00345 

G 

00015 

00003 

00003 




00346 

G 

00016 

00004 

00003 




0034 7 

M 

00009 

90005 

00009 

(TAU OCT) (INPUT TIME) 



00 34 H 

A 

00009 

90004 

00009 

T*TAU+ (TAU DOT ) ( I NPUT TIME) 



00349 

F 

00010 

90007 

00009 

SIN T 



00360 

F 

00009 

90008 

00009 

CCS T 



00351 

F 

90009 

90010 

90003 

U 2 INTO VQ 



00352 

F 

00011 

90016 

00010 

(U 2) (SIN T) 



00353 

F 

90009 

90010 

90002 

U l INTO VQ 



00354 

F 

90009 

90016 

00009 

(U l) (COS T) INTO VQ 



00355 

F 

90009 

90013 

00011 

U*(U 1 ) (CCS T ) + ( U 2) (SIN T) 



00356 

F 

00011 

90015 

00014 

R X U 



00357 

F 

00009 

90011 

00011 

MAG. OF (RXU) 



00356 

E 

00019 






00359 

B 

00019 





B 00019 

003o0 

F 

90006 

90011 

00014 

MAGNITUDE OF R 



00361 

M 

90006 

90006 

90006 

R*»2 



0036? 

S 

90006 

90006 

00008 

(R**2)-l 



00363 

F 

90006 

90017 

90006 

A» $0. RT OF ( R**2 )-* 1 



00364 

M 

90006 

90006 

90018 

WXA 



00365 

A 

90006 

90006 

00016 

Z + t WXA) «B 



00366 

M 

90C06 

90006 

90006 

B**2 



003b 7 

M 

90006 

90006 

90019 

F 2 



00368 

S 

90006 

00008 

90006 

T0L1* 1-F*B*»2 



00369 

B 

00020 





B 00020 

00370 

C 

90006 

00009 

00005 

IS MAG. OF (RXU LLSS THAN TOLERANCE 



00371 

H 

00001 

00004 

00008 

NO. SATELLITE IS IN LIGHT 



00372 

E 

00002 






00373 


K - 01 10C 


PAGE 005 



K 


CHOC 


PAGE 006 


B 00005 

F 00011 90012 00014 
F 00010 90014 00011 
C 90001 00010 00OU6 
H 00001 00004 00008 


YES. HAKE OTHER TEST 
UNIT R 

(UNIT R) DOT ( U ) 

IS (UNIT R) DOT (U) LESS THAN TOLERANCE 
NO. SATELLITE IS IN LIGHT 


B 00006 

H 00001 00004 00007 
E 00002 


YES. BOTH TESTS PASSED 
SATELLITE IS IN DARK 


K 00000 
K 01125 

Q 90001 
0 90C02 
0 900J3 
Q 90004 
Q 90005 
0 90006 
Q 90007 
Q 90008 
Q 90009 
Q 90010 
U 90011 
Q 90012 
Q 90013 
Q 90014 
B 0000 i 

V 00005 

V 00006 

V 00007 

V 00008 
G 00020 
G 00021 
C 00021 
C 00020 
B 00011 
H 00001 
E 00002 


F 153 - SUNLIGHT 


♦ 00000000+00 

♦ 10000000+01 

- 10000000+01 

+ 20000000+01 

00001 00003 

00002 00003 
00006 00009 00009 
00006 00010 00010 

00004 00005 


ENTRANCE OR EXIT DETERM 

J.D. TIME OF SUN I 

SEC. INDICATOR 1 I 

DELTA T (SEC) I 

REDUCED J.D. -SEC. TO C.U.T. F F 

ORBIT GENERATOR F 

SUNLIGHT DET. F. F 

J.D. TIME OF SUNLIGHT ENTRANCE OR 0 
SEC. EXIT (IF ANY) 0 

T (C.U >T. I 0 

PCS. +VEL. VECTORS AT ENT. OR EXIT 0 

TOL.FOR SIGNIFICANT TIME CHANGE (SEC) I 

ROUND FACTOR FOR SEC OF ENT. OR EXIT I 

SEC/DAY I 

SEC. OF ENT. OR EXIT (ROUNDED) 0 

SUN ENT. CR EXIT DET. ENTER WITH (Z)*$UN 
IND.-l* ( Z ♦ 1 ) = SUN IN0.1. IF THEY ARE EQUAL 
EXIT WITH (X)*O.IF THEY U I FFER , COMPUTE TI 
+ PCS. +VEL. VECTORS AT ENT. OR EXIT. EXIT 
WITH <X)*1 IF ENT. * < X > *-l IF EXIT. (34 LOC 
SUN INDICATOR -1 
SUN INDICATOR I 

IS INO 1 * 1 (IS SAT. NOW IN SUN) 

YES. IS IND. -1 * I (WAS SAT. THEN IN SUN) 
YES 

NO ENTRANCE OR EXIT 


» B 00009 

C 00020 00006 00011 00011 
H 00001 00004 00007 
R 00012 00013 
R 00014 00015 
E 00019 


SUN IND. 1 * 0 (SAT. NOW IN DARK) 

IS SUN INO. -I = l (WAS SAT. THEN IN SUN) 
YES* SO SUN EXIT HAS OCCURRED 
SET BEGIN COMMANDS 


* B 00010 
H 00001 
R 00012 
R 00014 

# B 00019 
R 00022 
R 90007 
R 90008 

• B 00013 
D 00022 
S 90008 
E 00016 


00004 00006 

00015 

00013 


00022 00006 
90008 00022 


SUN INC.l * 1 (SAT. NOW IN SUN) AND 
SUN IND.-l * 0 (SAT. THEN IN DARK), SO 
SUN ENTRANCE HAS CCCURRED 


INTERPOLATE FOR TIME OF ENTRANCE OR EXIT 
DELTA T* I DELTA T) /2 
SEC - DELTA T 


• B 00015 

0 00022 00022 00008 
A 90008 90008 00022 

• B 00016 

F 90009 90004 90007 
F 90010 90005 90009 
F 00023 90006 90009 
C 90011 00022 00018 
C 00023 00006 00012 00012 
E 00014 


DELTA T* ( DELTA T ) A? 

SEC ♦ DELTA T 

J.D.- SEC TO CUT 

POS.+ VEL. VECTORS AT NEW TIME 

SUN OET. 

WILL ANY FURTHER TIME CHANGE BE USEFUL 
YES. SEE IF SAT. IN SUN AT NEW TIME 


B 00018 

M 90014 90007 90013 
A 90014 90014 90008 
A 90014 90014 90012 
E 00002 


SEC. OF ENT. OR EXIT 
ROUND SEC. TO TENTHS 


PAGE 006 


B-6 


K * 


01125 


PAGE 007 


K 

00000 

- 




_ 



00446 

K 

01160 








00447 


TIME (PER CENT OF ORBIT) 

IN SUNLIGHT 





00448 

Q 

90001 

00637 


SUN INDICATOR 1 


I 



00449 

0 

90002 

00085 


VALUE OF SEC. OF ENT. OR EXIT IF CIDN'T 

OCCU 



00450 

B 

0000 1 
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ARE ANY BLANK LINES LEFT 
NO 


• B 00024 

C 90007 90008 00011 
E 00002 


IS THERE ROOM FOR END-OF-PASS DATA ON THIS 
YES. EXIT 


B 0001 1 
T 

P 00000 90008 TO 
B 00010 

Y 

P 90006 00013 TO 15150505 
A ^006 90006 00013 
I 90002 ♦00000000*00 
I 90003 *00000000*00 
E 00002 


NO « SO FINISH PRINTING PAGE 


tAGE COUNTER * 1 
SET LINE COUNTERS 
TO ZERO 


> B 00031 MORE LEFT THAN RIGHT »BUT SOME RIGHT 

R 00026 90009 
R 00027 90009 

TO HR Ml LONG.OEG LAT.DEG H.KM HR MI LONG.OEG LAT.DEG H. 

P 00026 00013 TD 150905151504050202 SSNSSSNSA 

P 90001 9C003 TD* 01030 3040503050902050303'K05030‘. 0902SNNNN.NNNASNNNNNNNA 

E 00007 GET ♦ PRINT LINES FOR LEFT COL. 


HR MI LONG.OEG LAT.DEG 
SSNSSSNSA 


• B 00006 

T l DATE 

P 00000 00013 TD 
T 

P 90004 00013 TD C 
R 00027 90009 
TO 

P 00027 00013 TO 1 

• B 00032 

I 00017 *00000000*00 
I 00018 *00000000*00 
S 00019 90003 90002 
M 00020 90002 00015 
A 00020 00020 00014 

• 6 00033 

A 00021 000 17 00014 

• B 00034 

G 00022 90001 00020 
H 90001 00017 00022 
A 00017 00017 00013 
A 00020 00020 00013 
C 00021 00017 00034 
A 0C018 00011 00013 
>0020 00020 00014 
C 00019 00016 00033 
T 

P 90001 00019 TD I 
$ 90008 9000? 90003 
E 00016 


THERE ARE LINES FCR RIGHT, RUT NCNE FOR LEF 
SATELLITE MAP 


)104040404C4C40404C404040404040404NSAAAAAAA;aAAAAAAA 


15151503050202 


HR Ml LONG.OEG LAT.DEG H. 
SSSStNSA 


CNTR. OF RIGHT HALF LINES GOTTEN*G 
NC.OF RIGHT HAlF-L!NES TO PRINT 
SET CNTR. TO GET FROM TABLE 


GET RIGHT HALF-LINES FROM 
TABLE AND STORE THEM FOR PRINTING 


CNTR. OF HALF LINES GOTTEN ♦ l 


1 5100303040503050902 SSSNNNNKNNA 

NO. OF BLANK LINES REM. ON PAGE 


PAGE Oil 


B-ll 


PAGE 012 


• 8 00030 MORE RIGHT THAN LEFT * BUT SOME LEFT 

R 0(^26 90009 
R 00U27 9C009 

TO HR MI LONG. DEG LAT.DEG H .KM HR MI LONG. DEG LAT.CEG H. 

P 00026 00013 TD 150905151504050202 SSNSSSNSA 

P 90001 90002 TD 0103030405030509020503030405G3050902SNNNNNNNASNNNNNNNA 
E 00032 


HR MI LONG. DEG LAT.DEG 
SSNSSSNSA 


K 00000 - - 

K 01335 

TYPE 2 (ENO-OF- 
Q 90001 00285 
Q 90002 00296 
Q 90003 00307 
Q 90004 0C318 
Q 90005 00329 
Q 90006 00351 
Q 90007 0C3M) 

Q 90008 00362 
Q 90009 01618 
Q 90010 00072 
Q 90011 00074 
Q 90012 00245 
0 90013 00221 
Q 90014 00220 
Q 90015 00108 
Q 90016 00099 
Q 90017 01646 
B 00001 

V 00005 *00000000*00 

V 00006 *10000000*01 

V 0C02 f +20000000*01 
M 00027 KM 

V 00034 *40000000*01 

V 00028 *50000000+01 
R 00026 90015 

C 90014 90013 00029 
S 00030 90013 00034 
TO SATELLITE MAP 
P 00000 00006 TD 
E 00031 


PASS) DATA PRINT 

FIRST LOC.CF DATA FOR TIME OF ASC.NODE 
DATA FOR TIME CF NORTH PT. 

DATA FOR TIME CF DESC. NODE 
OATA FOR T IME CF SOUTH PT. 

DATA FOR TIME CF FIRST SUN ENT. 

DATA FCR TIME CF FIRST SUN EXIT 
DATA FOR TIME C* SECOND SUN ENT. 

OATA FCR TIME CF SECOND SUN EXIT 
FIRST LOC.OF RUN IDENT. STATEMENT 
NO. UF LINES PER PAGE 
PAGE COUNTER 

PERCENT OF ORBIT SAT. WAS IN SUN 
LINES LEFT ON TYPE 1 DATA PAGE 
MAX. END-OF-PASS LINES/PAGE 
NO. BY WHICH HT. HAS BEEN MULT. 

ROUND VALUE 
ROUND AND SCALE F. 

TYPE 2 (END-OF-PASS) DATA PRINT F. 
(PRINTS A PAGE OF TYPE 2 DATA* WITH 
HEADING LINES, ON TO, ALL INPUT IS Q-D, 
USES 36 LOCS.) 


CAN ENC-OF-PASS DATA GO ON PAGE WITH T.l 0 
YES. DATA LINES/PAGE=(LINES LEFT) - (4) 

OF SPECIAL POINTS AND SUMMARY OF SOME ORBITAL DATA 


• B 00029 END-OF-PASS DATA MUST GO CN SEPARATE PAGE 

$ 00030 900 10 00C28 DATA LINES /PAGE- (LINES/PAGE) - (5) 

T1 SATELLITE MAP OF SPECIAL POINTS AND SUMMARY OF SOME ORBITAL DATA 
P 00000 00006 TD 
T 

P 90009 00006 TO 080404Q4040404040404C4040404C40404 SAAA AAA AAA A AAA AAA 

• 8 00031 

TOSPECIAL POINTS YRMODA HR MI SS.SS PASS LONG. DEG LAT.CEG H. 

P 00026 00006 TD 1515151503050202 SSSSSNSA 

C 90001 0C005 00008 CC0C8 CIO PASS HAVE ASC. NODE 

T ASCENDING NODE 
P 00000 00006 TD 
E 00009 

* B 00008 YES 

T ASCENDING NODE 

P 90001 00006 TD 15050703030303070405030509 SSNNNNNNNNNNN 

* 8 00009 

C 90002 00005 00010 OOOiO OID PASS HAVE NORTH PT. 

T NORTH POINT 
P 00000 00006 TD 
E 00011 

* B OOOIO YES 

T NORTH POINT 

P 90002 00006 TD 1505070 3030 J03070405C30509 SSNNNNNNNNNNN 

• 0 000)1 

C 90003 00005 00012 00012 DID PASS HAVE CESC. NODE 

T DESCENDING NODE 
P 00000 0C006 TD 
E 00013 


8 00012 YES 

T DESCENDING NOOE 

F 90003 00006 TD 15050703030303070405C30509 


SSNNNNNNNNNNN 


PAGE 012 


B-12 


K » Cl 335 


PA^b 013 


B 00013 

C 90004 00005 00014 00014 
T SOUTH POINT 
P 00000 00006 TO 
E 00015 


010 PASS HAVE SCUTH PT. 


B 00014 

T SOUTH POINT 
P 90004 00006 TO 15050 
B 00015 

I 00007 ♦ 1 1000000*02 
C 90005 00005 00016 00016 
T SUNLIGHT ENTRANCE 
P 00000 00006 TO 
C 90006 00005 00018 00018 
T SUNLIGHT EXIT 
P 00000 00006 TO 

5 00007 00007 00025 

6 00022 


150 50 70 3030303070405030509 


SSNNNNNNNNNNN 


SET OATA LINES TO PRINT * 11 


LINES TO PRINT = 9 

PASS HAO NO SUNLIGHT ENTRANCE OR EXIT 


8 00016 

T SUNLIGHT ENTRANCE 


P 90005 00006 TO 15050 
C 90006 00005 00018 00018 
T SUNLIGHT EXIT 
P 00000 0C006 TO 
S 00007 00007 00025 
E 00022 


15050703030303070405030509 


SSNNNNNNNNNNN 


LINES TO PRINT * 9 

PASS HAO ONE ENTRANCE - NO EXIT 


B 00018 

T SUNLIGHT EXIT 
P 90006 00006 TO 15050 
B 00021 

C 90007 00005 00019 00019 
S 00007 0C007 00025 
E 00022 


1 50 50 70 30 3 03 030 7040 5 03C 5 09 


SSNNNNNNNNNNN 


HAS THERE A SECOND ENTRANCE 

NO. THUS THERE WAS NO SECOND EXIT 

PASS HAD ONLY CNE ENTRANCE AND/ OR EXIT 


• B 00019 

T SUNLIGHT ENTRANCE 

P 90007 00006 TO 1505070 30303030 70405C30509 SSNNNNNNNNNNN 

C 90008 00005 00023 00023 
T SUNLIGHT EXIT 
P 00000 00006 TO 

E 00022 PASS HAD SECOND ENTRANCE, BUT NC SECONO EX 


* B 00023 

T SUNLIGHT EXIT 
P 90008 00006 TD 15050703 

* B 00022 

TOSUMMARY OATA PE 

P 00000 00006 TD 
I 90016 ♦ 10000000+02 
F 00035 90017 90012 

T SATELLITE IN SUN 
P 00035 00006 TD 15060402 
S 00024 00030 00007 
C 00024 00005 00032 00032 
E 00033 

• B 00032 

T 

P 00000 00024 TD 

• B 00033 

T 


15050703030303070405030509 

PERCENT 


SSNNNNNNNNNNN 


ROUND, SCALE PER CENT IN SUN 


NO. OF LINES TC SKIP 
ARE THERE LINES TC SKIP 
NO 


* 'wui k uuuuo i u 

A 90011 90011 00006 
E 00002 


i5i 50505 


PAGE COUNTER+1 


K 00000 
K 01375 

T 

Q 90001 
Q 90002 
0 90003 
Q 90004 
0 90005 
Q 90006 
Q 90007 


TYPE 2 ( END-QF-P ASS ) OATA COMPUTE 


J.O.OF SP.PT. , FOLL.BY SEC. ♦ROUND VALUE 
T ( CUT ) f FOLLOWED BY POSITION VECTOR 
PASS NUMBER 
ROUNDING VALUE 
ROUND AND SCALE F. 

J.O.-SEC TO J.O.-HMS F. 

J *D. TO PACKED DATE F. 


PAGE 013 


B-13 


I 


K - Cl 375 


PAG E 014 


1 


Q 90008 01191 
Q 90009 00108 
* B 0000 l 

V 00005 +10000000+01 

V 00006 +10000000+05 

V 00007 +10000000+03 
F 00009 90006 90001 
F 00009 90007 00009 
U 00013 00012 

S 00014 00012 00013 
M 00014 00014 00007 
F 00017 90006 90002 
R 90004 00006 
F 00015 90005 00017 
F 00017 9C005 00018 
R 90004 00005 
M 00019 00019 90009 
F 00019 90005 00019 
H 00001 00004 00009 
H 00002 00004 00010 
H 00003 OOOC4 00C 1 1 
H 00004 00004 00013 
H 00005 00004 00014 
H 00006 00004 90003 
H 00007 00004 00015 
H 00008 00004 00016 
H 00C09 00004 00017 
H 00010 00004 00018 
H 00011 00004 00019 
£ 00002 


SUB-SATELLITE JOINT ANO HEIGHT F. 

NO. BY WHICH TO MULTIPLY HT. 

TYPE 2 DATA COMPUTE FUNCTION 
(COMPUTES END-CF-PA5S DATA FOR A 
TIME OF A SPECIAL POINT AND 
STORES IT OUT INTO X , X + l , . . . X + 10 ) 

J.D. -SEC TO J.C.-HMS 
J.D. TO YYMMDD 

SEC* TC INTEGER + SCALED FR. ( RCUND+ SCALE 
F. IS NOT USED, AS SEC* WERE 
RUUNOED IN J.C.-S TO J.D.-HMS F.) 
COMPUTE LCNG.,LAT.,HT. 

LONG. TO INTEGER, FRACT* 

LAT. TO INTEGER, FRACT. 

SCALE HEIGHT 
ROUND HEIGHT 
YYMMDD 
HR* 

MIN. 

SEC. 

FR. OF SEC. 

PASS NO* 

LCNG. 

FR. OF LONG. 

lat. 

FR. OF LAT. 

HEIGHT 


C0962 

00963 

B 00001 00964 

00965 

00966 

00967 

00968 

00969 

00970 

00971 

00972 

00973 

00974 

00975 

00976 

00977 

00978 

00979 

00980 

00981 

00982 

00983 

00984 
0C985 

00986 

00987 

00988 

00989 

00990 

00991 


K 00000 - - ------------------- 00992 

K *H400 00993 

F 025 - JULIAN 0/S TO CUT 00994 

Q 00006 00816 SEC/C. U.T. I 00996 

Q 00007 00815 SEC/DAY I 00996 

* B 00001 JULIAN DAYS-SECONDS to C.U.T. FUNCTION B 00001 00997 

V 00008 +10000000 + 01 ENTER WITH U )«J.C. , ( 2 + 1) *SEC. 00998 

V 000)2 +00000000+00 EXIT WITH (X) - C.U.T* 00999 

G 00009 00001 00003 J.D. OlOCO 

G 00010 0C002 00003 SECONDS 01001 

M 00009 0C0C9 00007 J.D. 10 SEC. 01002 

0 00009 00009 00006 01003 

0 00011 00010 00006 01004 

A 00011 00011 00009 01005 

H 000C1 00004 00011 01006 

E 00002 01007 



01008 


K 00000 - - ------------------- 01009 

K 01420 01010 

PACKED DATE (YYMMDD) TO J.D. 01011 

- PACK 01012 

0 90001 00151 YEAR OF REFERENCE 01013 

Q 90002 00152 DAYS JAN. I - CREF 01014 

Q 90003 01841 DBS. CATE TO J.D. FUNCTION 01015 

* 8 00001 PACKED DATE ( YYMMCD ) TO J.D. F. B 00001 01016 

V 00005 +10000000+03 ENTER WITH (2) * YYMMOD, DATE CF OBS. 0101? 

G 00007 00001 00003 EXIT WITH (X)=CCRRES. J.O. (12 LOCS. 1 01018 

0 00008 00007 00005 YYMM.DD 01019 

U 00008 00008 YYMM 01020 

M 00009 00008 00005 YYMMOO 01021 

S 0001 1 00007 00009 DO DAY OF CBS. 01022 

0 00009 00008 00005 YY.MM 01023 

U 00009 00009 YY YEAR OF CBS. 01024 

M 00007 00009 00005 YYOO 01025 

S 00010 00000 00007 MM MONTH CF CBS. 01026 

R 00007 90001 YREF 01027 

R 00008 9C002 OATS JAN. I - CREF 01028 

F 00012 90003 OOOC OBS. OATE TO J.D. 01029 

H 00001 00004 00012 01030 

E 00002 01031 


K 00000 - - - - -- -- -- -- -- -- -- -- -- 01032 

K 01500 01033 

F 010 - ARC TANGENT X 01034 

* B 00001 8 00001 01035 

K * Cl 500 PAGE 014 


B-14 


K * C15CC 


PAGE 015 



G 00003 00001 00003 

V 00005 78539016 00 

V 00006 99999933 CO 

V 00007 -33329856 00 

V 00008 19946536 00 

V 00009 - 1 3908534 00 

V 00010 96420044-01 

V 00011 -55909086-01 

V 00012 21061229-01 

V 00013 -40540580-02 

• B 00014 

V 00015 10000000 01 

S 00016 00015 00015 
R 00017 00015 

C 00003 00016 00C18 
S 00017 00016 00015 
S 00003 00016 00003 

• B 00018 

S 00019 00003 00015 
A 00003 00003 00015 
D 00020 00019 00003 
M 00003 00020 00020 
M 00021 00003 00013 
A 00021 00021 00012 
M 00021 00021 00003 
A 00021 00021 00011 
M 00021 00021 00003 
A 00021 00021 00010 
M 00021 00021 00003 
A 00021 00021 00009 
H 00021 00021 00003 
A 00021 00021 00008 
M 00021 00021 00003 
A 00021 00021 00007 
M 00021 00021 00003 
A 00021 00021 00006 
M 00021 00021 00020 
A 00021 00021 00005 
M 00021 00021 00017 
H 00001 00004 00021 
E 00002 


K 00000 - - - - - -- -- -- -- -- -- -- -- - 

K 01580 

F 055 - CNE WORD LOADER - CHANGE CF CONSTANTS 

Q 90001 00000 

g 90002 02401 INPUT CONVERTER 

# B 00001 CNE-WORD LOAD (PRINTS LOC.+ VALUE FROM COL 

V 00005 +10000000+01 1-17 + ALPHABETIC IDENT • FROM CCLS. 30-61 

V 000C6 +00000000+00 OF EACH CARD LOADED. USES 19 LCCS.) 

T 

P 00000 00005 PA 

• B 00007 

L 00009 00005 CA 050903 1 20404040 *04040404 NNN5AAAAAAAA 

C 00009 00006 00008 OOOCfl IS THIS END OF CARDS 

E 00002 >ES 


01036 

01037 

01038 

01039 

01040 

01041 
0104? 

01043 

01044 

01045 

B 00014 01046 

01047 

01048 

01049 

01050 

01051 

01052 

B 00018 01053 

010^4 

01055 

01056 

01057 

01058 

01059 

01060 
01061 
01062 

01063 

01064 

01065 

01066 

01067 

01068 
0 1069 

01070 

01071 
0107? 

01073 

01074 

01075 
010/6 


01077 

01078 

01079 

01080 
01081 

B 00001 01082 

01083 

01084 

01085 

01086 

B 00007 01087 

01088 
01009 
01090 



• B 00008 

T LOC. CONTAINS 

P 00009 00005 PA 0406100903070404040404040404 

F 00010 90002 00010 

H 90001 00009 00010 

E 00007 


SNSNNSAAAAAAAA 


B 00008 01091 

01092 

01093 

01094 

01095 

01096 


K 00000 - - 

K 01600 

F 033 

Q 90001 004X1 
Q 90002 00159 
0 90003 00137 
W 90004 06399 
Q 90005 00434 
Q 90006 00168 
Q 90007 00110 
0 90008 00111 
• B 0000 l 

V 00005 +10000000+01 

V 00006 +60000000+01 


RUN ID LOAD AND PRINT 

ALPHABETIC SATELLITE IDENT. (ONE WORD) I 
SAT. NO.,FOLl. BY 3 LCCS. OF NAME I 

START AND END CATES AND TIMES CF MAP I 

ORBIT THEORY IND. ( FROM TE TITLE RECORD I I 
LOC. PRECEDING ORBIT THEORY IDENT • I 

REFINED WMAP CLTPUT OPTION 0 

FIRST OF 2 WORDS GIVING TYPE CF MAP I 

SECONO WORD GIVING TYPE OF MAP I 

RUN IDENTIFICATION LOAD ANO PRINT. LOADS 
CARD, STORES CCLS. 1-0 (ALPHABETIC! IN 


K * C16CC 


B 00001 


PAGE 015 


01097 

01098 

01099 

01100 
01101 
01102 

01103 

01104 

01105 

01106 
01107 
OliUd 
01109 
OHIO 


/ 


B-15 


PAGE 016 


V 00007 +20000000+01 LOCS. X...X+7. OUTPUT GOES ON PRINTER 

V 00000 +00000000+00 CN TAPE TI AND, OPTIONALLY, ON TAPE TO 

USES 34 LOCATIONS 

00010 00005 CA 01 010 10 10 101 0 1010 104040404Q40404040404AAA AAAAAAA AAAAAAAA 


CONTINUED 040404040404 

H 00001 00004 00010 
H 00002 00004 00011 
H 00003 00004 00012 
H 00004 00004 00013 
H 00005 00004 00014 
H 00006 00004 00015 
H 00007 00004 00016 
H 00008 00004 00017 
M 00013 90004 00007 
G 00012 90005 00013 
S 00013 00013 00005 
G 00011 90005 00013 
R 00010 90001 
Tl 

P 00000 00005 TI 
TO 

P 00000 00006 TI 
TO 

P 00010 00005 TI 150504150 

T 

P 90002 00005 TI 150906030 

T FROM 

P 90003 00005 TI 150907050 

TO 

P 00018 00005 TI 150504040 

T 

P 00026 00005 TI 150504040 

T 

P 00010 00005 PA 150504150 

C 90006 00008 00009 00009 

E 00034 


COL. 1 

COL. 2 (PRINTER OUTPUT) 

COL. 3 (TAPE OUTPUT) 

COL. 4 (REFINED WRAP OUTPUT) 
COL. 5 (CARD INPUT) 

COL. 6 (TAPE INPUT) 

COL. 7 

COL. 8 (0RB3 OR SPRF OUTPUT) 
USE ORBIT THEORY INO, TO 
GET 2 WORDS OF CORRESPONDING 
ORBIT THEORY IDENTIFICATION 

SAT. IOENT. 


MASTER ORBIT TAPE 
15050415040404 

15090603040404 

FROM TO 

15090705030705 

15050404040404040404 

15050404040404040404 

MASTER ORBIT TAPE 
15050415040404 


SSAAAAAAAA 


SSAAAAAAAA 


• B 00009 
R 00014 
R 00015 
R 00016 
R 00017 
Tl 

P 00000 
TO 

P 00000 
TO 

P 00014 


00005 TD 


00006 TD 


00005 TD 


WORLD MAP 


15060404110404 


P 90002 
T 

P 90003 
TO 

P 00016 
T 

P 00026 
T 

P 00014 
• B 00034 
T 

P 90002 
T 

P 90003 
T 

P 00016 

E 00002 


00005 TD 


00005 TD 


00005 TD 


00005 TD 


00005 PA 


00005 PA 


00005 PA 


00005 PA 


15090603040404 

FRCM TO 

15090705030705 

150 50 40 4 04 0 A 04 C 404 04 

15050404040404040404 

WORLO MAP 

15060404110404 


SSNSAAA 


SSAAAAAAAA 


SSAAAAAAAA 


15090603040404 SSNSAAA 

FRCM TC 

15090705030705 SSNNSNN 

0 80 4 04 0 4 04 04040 40404 04 04 0404C4 0404 SAA AAAAAAA AAAAAAA 


K 00000 - - - - 

K 01645 

F 069 - RO 

G 90001 00099 
• B 00001 

V 00006 +00000000+00 

V 00007 +50000000+00 

V 00008 +10000000+01 
G 00015 OCOOl 000C3 
D 00016 00007 90001 

C 00015 00006 00025 00026 
R 00020 00006 


ROUND ANC SCALE 

LOC.OF 10 TO THE N-TH POWER, WHERE N IS THE 
NO. OF PLACES TC THE RIGHT OF TH: DECIMAL 
TO BE ROUNDED AND SCALEO. ENTER WITH (Z)= 
NO. TC BE ROUNDED AND SCALED FCR FIXEC PT 
OUTPUT. EXIT WITH (X)* INTEGER PART OF NU 
(X+1)* SCALEO FRACTIONAL PART OF NO. 

USES LOCS. 1-29 


PAGE 016 


B-16 


K = 0164 5 


PAGE 017 



R 

00021 

00006 



• 

B 

0002 7 





C 

00021 

00006 

00029 



R 

00021 

00006 



• 

B 

00029 





H 

00001 

00004 

00020 



H 

00002 

00004 

00021 



E 

00002 




« 

B 

00025 





A 

00017 

00015 

00016 

ROUND 


U 

00020 

00017 


POSITIVE INTEGER 


s 

00018 

00017 

00020 

FRACTION 


H 

00021 

00018 

90001 

scale fraction for 


E 

00027 





01188 

B 00027 01189 

01190 

01191 

B 00029 0119? 

01193 

01194 
0119 5 

/ 

B 00025 01196 

01197 

01198 

01199 

IMG 01200 

01201 


* B 

S 

00026 

00017 

0C015 

00016 

u 

00020 

00017 


s 

00018 

00020 

00017 

M 

00021 

00018 

90001 

c 

00021 

00008 

00027 00028 

E 

00027 




ROUND 

NEGATIVE INTEGER 
FRACTION 

SCALE FRACTION FOR PRINTING 


B 00026 01202 

01203 

01204 

01205 

01206 
0120 / 
01208 


• B 00028 

C 00020 00006 00C27 00027 
R 00020 00006 
E 00027 


SCALED FRACTION LESS THAN 
II. E. PART TO PRINTED) 
STORE POSITIVE 0 


8 00028 01209 

01210 
01211 
01212 


K 

00000 

- 

- - 


K 

01680 


F 047 ~ 

ANGLE REDUCER 

Q 

00008 

00819 


2 PI 

* B 

0000 1 



ANGLE REDLCTI 

V 

00006 

+00000000+00 

ANGLE IN RADI 

G 

00009 

0C001 

00003 

BETWEEN 0 AND 

D 

00009 

00009 

00008 

INPUT ANGLE/ 

C 

00006 

00009 

00005 

IS ANGLE PCSI 

U 

00010 

00009 


INTEGER 

s 

00010 

00009 

OOOiO 

FRACTION 

M 

00010 

00010 

00008 

(FRACTION) (2 

H 

00001 

0C004 

OOCIO 


E 

00002 




• B 

00005 



ANGLE IS MEG. 

U 

00010 

00009 


INTEGER 

S 

00010 

00009 

OOOiO 

FRACTICN 

M 

00010 

0C010 

00008 

(FRACTION) (2 

A 

00010 

00010 

00008 

MEG. ANGLE + 

H 

00001 

00004 

OOCIO 


E 

00002 





---------- 01213 

01214 

01215 

I 01216 

CN FUNCTION, ENTER WITH (Z) * B 00001 01217 

ANS. EXIT WITH (X) = ANGLE 01218 

2 PI RADIANS. USES 10 LOCS. 01219 

2 PI 01220 

T1VE 01221 

0122 ? 

01223 

PI) = REDUCEC ANGLE 01224 

01225 

01226 

B 00005 01227 

01228 
01229 

PI) = NEC. ANGLE OL230 

2 PI = REOUCEC ANGLE 01231 

C 1 2 32 
01233 


| 


) 


K 

00000 

- - 


- 

- 




01234 

K 

01700 








01235 



F 023 * 

CATE FUNCTION 






0 1 ? 36 

• B 

00001 


DATE FUNCTION I 

USES LOCATIONS 1 TO 45 

B 

00001 

01237 

V 

00008 

+20000000+01 

ENTER WI 

TH 

(Z)=YEAR,(Z+1)=CAY COUNT 



01238 

V 

00009 

♦40000000+01 

FRCP JAN 

.1 

CF THE GIVEN YEAR THROUGH 



0 i 2 39 

V 

OOOIO 

+10000000+01 

THE 

DESIRED 

DATE. EXIT WITH ( X ) = YE AR , 



01240 

V 

0001 1 

♦00000000+00 

( X ♦ l ) *r*CNTH 

t ( X + 2 ) -UAY. 



01241 

V 

00012 

♦31000000+02 

NC. OF 

DAYS 

UP 

TC FEB. 1 



0124? 

V 

00013 

>59000000+02 

NC. OF 

days 

UP 

TC PAR. 1 



01243 

V 

00014 

♦90000000+02 

NO. OF 

DAYS 

UP 

TO APR. 1 



01244 

V 

00015 

♦12000000+03 

NC. OF 

DAYS 

UP 

TC PAY 1 



01245 

V 

00016 

+15100000+03 

NC. OF 

DAYS 

UP 

TC JUNE 1 



01246 

V 

00017 

♦18100000+03 

NC. OF 

days 

UP 

TC JULY 1 



01247 

V 

00016 

+21200000+03 

NO. OF 

DAYS 

UP 

AUG. 1 



01248 

V 

00019 

+24300000+03 

NC. OF 

DAYS 

UP 

TO SEPT. 1 



0124 ) 

V 

00020 

♦27300000+03 

NC. OF 

DAYS 

UP 

TC OCT. 1 



0125U 

V 

00021 

+30400000+03 

NO. OF 

DAYS 

UP 

TC NOV. 1 



01251 

V 

00022 

♦33400000+03 

NC. OF 

DAYS 

UP 

TC DEC. 1 



01253 

V 

00023 

♦36500000+03 







01253 

I 

00031 

+00000000+00 

SET DAY TOTAL 

FOR MONTHS 



01254 

I 

00032 

+00000000+00 

SET MCNTH COUNTER-O 



01255 

I 

00033 

♦00000000+00 

SET DAY LCCATOR-O 



01256 

G 

00024 

00001 00003 

STORE 

YEAR , 

AND 

D*DAY COUNT 



01257 

G 

00025 

00002 00003 







01258 

* B 

00044 






8 

00044 

01259 


K * C170C 
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I 

00037 

♦60000000+02 

SET i*0 


01260 

• 

B 

00038 




B 00038 

01261 


C 

Q0Q24 

00037 

00039 00040 

YEAR LESS THAN 60+41 


0126 2 


I 

00026 

♦10000000+01 

SET D*»l FOR LEAP YEAR 


01263 


E 

00045 





01264 

• 

B 

000*0 




d Ouu*u 

U1265 


I 

00026 

♦00000000+00 

SET D«*0 FOR A REGULAR YEAR 


01266 

• 

B 

00045 




6 00045 

01267 


A 

00027 

00026 

00023 

D*+365 


01268 


C 

00025 

00027 

00029 00030 

IS D GREATER THAN 365+D* 


01269 

• 

B 

00030 



YES 

B 00030 

01270 


A 

00032 

00032 

00010 

MONTH COUNT+l 


01271 


C 

00025 

00031 

00034 

D LESS THAN DIM 


01272 


S 

00006 

0C032 

00010 

MONTH COUN T*l- MONTH 


01273 


G 

00036 

00010 

00033 

DAY TOTAL OF MONTH 


01274 


C 

00006 

00008 

00043 



01275 


R 

00007 

00036 


DO NOT CONSIDER C* 


01276 

* 

B 

00042 




B 00042 

01277 


S 

00007 

00025 

00007 

D-(DAY TOTAL OF MCNTH+D* I *DATE 


01278 


R 

00005 

00024 


YEAR 


01279 


H 

00001 

00004 

00005 

STORE YEAR 


01280 


H 

00002 

00004 

00006 

STORE MONTH 


01281 


H 

00003 

00004 

00007 

STORE DAY 


01282 


E 

00002 



EXIT 


01283 

• 

B 

00029 




B 00029 

01284 


A 

00024 

00024 

00010 

YEAR* YEAR* 1 


01285 


S 

00025 

00025 

00027 

D-(0#+365) 


01286 


E 

00044 





01287 

• 

B 

00034 




6 00034 

01288 


G 

00031 

00012 

00033 

STORE DAY COUNT 


01289 


A 

00033 

00033 

00010 



01290 


C 

00006 

00032 

00030 

MCNTH COUNT GREATER THAN i- 


01291 

• 

B 

00035 




B 00035 

01292 


A 

00031 

00031 

00026 

OTM*0TM+O* 


01293 


E 

00030 





01294 

• 

B 

00043 




6 00043 

01295 


A 

00007 

00036 

00026 

DAY TOTAL OF MCNTH +D* 


01296 


E 

00042 





01297 

• 

B 

0JO39 




B 00039 

01298 


A 

00037 

00037 

00009 

SET 1*1+4 


01299 


E 

00038 




• • 

01300 



K 

00000 

- 

- 



01301 


K 

01750 





01302 





F 106 - 

JULIAN DAYS-SECONOS TO JULIAN DAYS 


01303 

• 

B 

00001 



JULIAN DAYS-SECCNDS TC JULIAN DAYS-HOURS- 

B 00001 

01304 


V 

00005 

+60000000+02 

MINUTES. ENTER WITH U)*JULIAN DAYS, 


01305 


V 

00006 

+ 14400000+04 

(Z+i)*SECCNDS»(Z+21*H0UNCING FACTOR. EXIT 


01306 


V 

00007 

+10000000+01 

WITH ( X ) * JUL I AN DAYS, (X+l )*HCURS, 


01307 


V 

00012 

♦00000000+00 

( X + 2 ) *MI NUT ES • (USES LOCATIONS 1-161. 


01308 


G 

00010 

00001 

0000 3 

JULIAN DAYS 


01309 


I 

000 11 

+00000000+00 

SET HCURS*0 


01310 


G 

00013 

00002 

00003 

SECONDS 


01311 


D 

00013 

00013 

00005 

SECCNDS TO MINirES 


01312 


G 

00009 

00003 

00003 

ROUNDING VALUE 


01313 


A 

00013 

00013 

00009 

ROUND MINUTES 


01314 

• 

B 

00014 




B 00014 

01315 


C 

00006 

00013 

00015 

DO MINUTES * OR EXCEED 1 DAY 


01316 


s 

00013 

00013 

00006 

YES. MINUTES-tMINUTES IN DAY I 


01317 


A 

00010 

00010 

00007 

JULIAN CAYS +i 


01318 


E 

00014 





01319 

• 

B 

00015 




B 00015 

01320 


C 

00005 

00013 

00016 

DC MINUTES - CR EXCEED 1 HOUR 


01321 


S 

00013 

00013 

00005 

YES. MINUTES- (MINUTES IN HOUR I 


01322 


A 

00011 

00011 

00007 

HOURS +1 


01323 


£ 

00015 





01324 

• 

B 

00016 




B 00016 

01325 


A 

00013 

00013 

00012 

TO ELIMINATE -C 


01326 


H 

00001 

0C004 

00010 



01327 


H 

00002 

00004 

00011 



01328 


H 

00003 

00004 

00013 



01329 


E 

00002 





01330 


K ■ 01750 
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X 

ooooo 

- 

- - 

K 

01775 


F 026 

Q 

00007 

00815 


B 

00001 



V 

00005 

♦60000000+02 

V 

00005 

♦60000000+02 

V 

00006 

♦36000000+04 

V 

00006 

♦10000000+01 

G 

00010 

00001 

00003 

1 

00011 

♦00000000+00 

I 

00012 

♦cooooooo+oo 

G 

00013 

00002 

00003 

G 

00009 

00003 

00003 

A 

00013 

00013 

00009 

B 

00014 



C 

00007 

00013 

00015 

S 

00013 

00013 

00007 

A 

00010 

0C010 

00C08 

E 

00014 




JULIAN D/S TO JULIAN D/H/M/S 

SEC/DAY I 

JULIAN DAYS-SECONCS TO JULIAN CAYS-HGuRS- 
MINUTbS- SECONDS FUNCTION (USES LOCATICNS 
1 TO 19) 

ENTER KITH (Z)*JULIAN 0AYS,(Z+1)* 
SECONDS, ( Z +2 ) = ROUNDING FACTOR . EXIT 
WITH ( X ) * JUL I AN CAYS,(X + 1)« HClRS,lX+2)* 
MINUTES , ( X + 3 ) = SECONOS. 


B 00015 

C 00006 00013 00C16 
S 00013 00013 00006 
A 00011 0C011 00008 
E 00015 


01331 

0133? 

01333 

01334 

B 00001 01335 

01336 

01337 

01338 

01339 

01340 

01341 

01342 

01343 

01344 

01345 

B 00014 01346 

01347 

01348 

01349 
01360 

R 00016 01351 

01362 

01363 

01364 
01355 


y. 


* B 

C 

00016 

00005 

00013 

00017 

s 

00013 

0C013 

00005 

A 

00012 

00012 

00008 

E 

00016 




B 00016 01356 

0135/ 

01358 

01359 

01360 


* B 
A 

00017 

G0013 

00013 

00018 

TC ELIMINATE -C 

H 

00001 

00004 

00010 


H 

00002 

00004 

OOOil 


H 

00003 

00004 

00C12 


H 

00004 

00004 

00013 


E 

00002 





B 0001/ 01361 

0 1 3o2 

01363 

01364 

01365 

01366 

•• 01367 



K 

OOOOO 


- - 




C 1 3o8 

K 

01800 






01369 



F 022 - DAY COUNT 





01370 

• B 

00001 


DAY 

CCliNT FUNCTION USES LCCATICNS 1 TO 33 

B 

00001 

01371 

V 

00008 

♦20000000+01 


ENTER WITH (Z MYEAR , (Z+l) x MCNTH,(Z+2)* 



0137? 

V 

00009 

♦40000COQ+0 1 


DAY. EXIT WITH ( X ) *NUMBER OF DAYS FROM 



01373 

V 

00010 

♦10000000+01 


J AN. 1 CF THE GIVEN YEAR THROUGH THE 



01374 

V 

000 11 

♦00000000+00 


GIVEN CATE. 



01375 

V 

00012 

♦31000000+02 

NC. 

OF DAYS UP TO FEB. 1 



01376 

V 

00013 

♦59000000+02 

NG. 

UF DAYS UP TG MAR. 1 



01377 

V 

00014 

♦90000000+02 

NO. 

OF DAYS UP TO APR. 1 



01378 

V 

00015 

♦12000000+03 

NG. 

OF DVtS UP TO MAY l 



01379 

V 

00016 

♦15100000+03 

NC. 

OF DAYS UP TO JUNE 1 



01380 

V 

00017 

♦ 18100000 + 03 

NG. 

OF DAYS UP TC JULY l 



01381 

V 

00018 

♦21200000+03 

NC. 

C* DAYS UP AUG. 1 



01382 

V 

00019 

♦24300000+03 

NC. 

OF DAYS UP TC SEPT. 1 



01383 

V 

00020 

♦2730000C+03 

NC. 

OF DAYS UP TO OCT. 1 



01384 

V 

00021 

♦30400000+03 

NO. 

OF DAYS UP TC NOV. 1 



01385 

V 

00022 

♦33400000+03 

NC. 

OF DAYS UP TC DEC. 1 



01386 

I 

00026 

♦OOOCOOOC+OO 

SET 

DAY LCCATOR TC ZERO 



01387 

1 

00026 

♦10000000+01 

SET 

MCNTH COUNTER TO l 



01388 

G 

00C2 3 

00001 00003 

STORE YEAR, MONTH, AND DAY 



01389 

G 

00024 

00002 00003 

FROM THREE CONSECUTIVE 



01390 

G 

0002 5 

00003 00003 

LCCAT1CNS 



01391 

• B 

00030 




B 

00030 

01392 

G 

00027 

00011 00028 

STORE DAY COUNT 



01393 

C 

00024 

0G026 00005 

IS 

MONTH COUNTER EQUAL TO MONTH 



01394 

A 

00027 

00025 00027 

ADD 

INPUT DAY TO CAY COUNTER 



01395 

C 

00024 

00008 00031 

IS 

MONTH GREATER THAN 2 



01396 

• B 

00029 




B 

00029 

01397 

H 

00001 

00004 00027 

STORE THE DAY COUNT 



01398 

E 

00002 


EXIT 



01399 


• B 00031 

1 00026 ♦6000000002 SET LEAP YEAR 1*0 

• B 00032 


6 00031 
6 0003? 


U 1409 

01401 

01402 


k * cieoc 
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K » Cl 600 
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C 00023 
A 00027 
E 00029 

* B 00033 
A 00026 
E 00032 

* B 00005 
A 00026 
A 00026 
E 00030 


K 00000 

K 01840 
Q 00011 

* B 00001 

V 00012 

V 00013 

V 00018 
G 00005 
G 00006 
G 00007 
G 00008 
G 00009 
I 00010 
I 00017 

* B 00020 
C 00007 

* B 00015 
F 00022 
A 00010 
S 00010 
H 00001 
E 00002 

* B 00016 
C 00005 
A 00010 

* B 00019 
A 00010 
A 00005 
€ 00020 

« 3 00021 
A 00017 
E 00016 


K 00000 
K 01870 

Q 00005 
Q 00006 

• B 00001 

V 00011 

V 00014 

V 00018 

V 00019 
G 00007 
G 00006 
G 00009 
0 00012 
U 00015 
H 00012 
S 00016 
M 00010 
A 00010 
M 00010 
A 00010 
0 00010 
C 00007 
M 00010 
A 00010 

• B 00017 
H 00001 

e 00002 


00026 

00027 

00033 00029 
00010 

COMPARE YEAR WITH 60*41 
YEAR EQUALS 60*41 


01403 

01404 

01405 

00026 

00009 

YEAR IS GREATER THAN 41*1 
SET LEAP YEAR 1=1*1 

B 00033 

01406 

01407 

01408 

00026 

00028 

00010 

00010 

ADD 1 TO THE MONTH COUNT 
ADD 1 TO THE DAYS LOCATOR 

B 0 0005 

«• 

01409 

01410 

01411 

01412 





01413 

F 024 - OBSERVED 

DATE TO DAY COUNT FROM TREF 


01414 




01415 

01801 

DAY COUNT F. F 


01416 


OBSERV. DATE TO DAY COUNT FROM CREF ( DAY OF 

B 00001 

01417 

♦3650000C+03 

REFERENCE) F. (USES LOCATIONS 1 TC 24) 


0141b 

♦10000000*01 

ENTER WITH (2 ) = YE Art OF THE REFERENCE 


01419 

♦40000000*01 

CATE, (Z*U*NO- OF DAYS FROM JAN.1 OF 


01420 

00001 00003 

THE YEAR THROUGH THE 0 AY OF REFERENCE, 


01421 

00002 00003 

il*2) t ( 2*3 ) ♦ ( Z*4 )* YEAR,MCNTH,CmY FOR 


01422 

00003 00003 

THE OBSERVATICN DATE. 


01423 

00004 00003 

EXIT WITH THE NUMBER OF DAYS FROM THE 


01424 

00005 00003 

REFERENCE DATE THROUGH THE OBSERVATION 


01425 

♦00000000*00 

DA TE , ( TOE • THE JULIAN DAY CCUNT FROM 


01426 

♦60000000*02 

REFERENCE DAY. ) 


01427 



B 00020 

0142b 

00005 00016 



01429 



B 00015 

01430 

00011 00C07 



01431 

00010 00C22 



01432 

00010 00006 



01431 

0C004 OOCIO 



01434 




01435 



B 000)6 

01436 

0C017 00C21 00C19 



01437 

00010 OOC13 



0143b 



B 00019 

01439 

00010 00012 



01440 

00005 00013 



01441 




0144? 



B 00021 

01443 

00017 00C18 



01444 


• • 


01445 


- 

- 

- 


- 


01446 







01447 


F 019 - 

ALPHA - 

SIGN/DEG/MIN-SEC to radians 



01448 

00847 



t 'R/M I N 

I 


01449 

00621 



UEG/RAD 

I 


0145C 




ALPHA-SiGN DEG-MIN-SEC TO RADIANS F. 


B 0000 L 

C 14 5 l 

♦10000000*03 





01452 

♦30000000*02 





01453 

-10000000*01 





01454 

♦00000000*00 





01455 

00001 

00003 





01456 

00002 

0000 < 





01457 

00003 

C 0 0 0 3 





0145b 

00009 

00011 





01459 

0C012 



INTEGER 



01460 

00015 

00011 





01461 

00009 

00012 





01462 

0C016 

0CC05 





01463 

OOOIQ 

00015 





01464 

00010 

00005 





01465 

00010 

00C08 





01466 

0C01C 

C00C6 





01467 

00014 

00017 00017 




01466 

00010 

00018 





01469 

0C010 

00019 





01470 






B 00017 

01471 

00004 

00010 





01472 







014 73 


K * 

01870 
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K 00000 - - - ------------------- 

K 01900 

F 064 - SQUARE ROOT - LEAST SQUARES 

Q 90001 01244 ERROR EXIT 0 

Q 90002 02341 SQUARE ROOT F. F 

. a 0000 1 SQUARE ROOT LEAST SQUARES SOLUTION 

V 00020 ♦ lOOOOOQQ+O 1 ENTER WITH (Z)-M, (Z+1)«M. ELEMENTS OF THE 

V 00021 4-00000000 + 00 PATRIX ARE STCREC BY ROWS STARTING IN Z + 2 

V 00022 +20000000+01 EXIT WITH SOLUTIONS STORED STARTING IN X. 

1 00025 +10000000+01 ROUTINE USES LOGS. 1-57* 

I 00031 +00000000+00 

I 00027 +00000000+00 

I 00029 +00000000+00 

I 00047 +10000000+01 

G 00036 00002 00003 
A 00030 00036 00020 
R 00033 00030 
R 00026 00036 
R 00032 00036 
R 00044 00030 
R 00024 00030 
S 00028 00036 00020 
• B 00005 

A 00034 00003 00031 
G 00038 00003 00034 
C 00038 00021 00017 00017 
I 90001 +10000000+01 
E 00002 


0 14 74 

01475 
OlU 6 
01477 

01476 

B 00001 01479 

01460 

01461 
014B2 

01463 

01464 

01485 

01486 
01467 
01486 

01489 

01490 

01491 

01492 

01493 
014 J4 

01495 

B 00005 01496 

01497 

01496 

01499 

01500 

01501 


• B 00017 

F 00038 90002 00030 
H 00003 00034 00038 

• B 00006 

A 00031 00031 00020 
A 00035 00003 00031 
G 00039 00003 00035 

0 00039 00039 00036 
H 00003 00035 00039 
C 00032 00031 00006 
C 00029 00021 00010 

• B 00007 

A 00040 00030 00022 
A 00040 00003 00040 

1 00037 +00000000+00 
A 00025 00025 00020 

• B 00009 

A 00027 00027 00020 
R 00029 00027 
A 00042 00003 00027 
G 00042 00003 00042 

• 9 00009 

A 00029 00029 00020 
A 0004C 00040 C0020 
G 00041 00000 00040 
A 00043 00003 00029 
G 00043 00002 00043 
M 00043 00042 00C43 
S 00041 00041 00043 
H 00000 00040 00041 
C 00030 00029 00009 
C 00037 00021 00010 
R 00031 00030 
S 00044 00044 00020 
A 00032 0C032 00044 
E 00005 

• B 00010 

I 00037 ♦ lOOCOOOO + Ol 
C 00028 00027 00008 
C 00026 0C025 00011 
E 00012 

• B 0001 l 

R 00027 00030 
S 00033 00033 00020 
A 00030 00030 00033 
S 00028 00030 U0022 
E 00007 


K - 0190C 


B 00017 015U2 

01503 

01504 

B 00GC6 01509 

01506 

01507 
01506 

01509 

01510 

01511 

01512 

B 00007 01513 

01514 

01515 

01516 

01517 

B 00008 01518 

01519 

01520 

01521 

01522 

B 00009 C 152 3 

01524 

01525 

01526 
C 152 7 
01528 
C 1529 

01530 

01531 

01532 

01533 

01534 

01535 

01536 

01537 

B 00010 01538 

01539 

01540 

01541 

01542 

B 00011 015*3 

01544 
C 1 545 
01546 
0154/ 
0 1 54 B 
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• 

B 00012 



B 

00012 

01549 


A 00045 

00024 

00022 



01550 


M 00045 

00045 

00036 



01551 


0 00045 

00045 

00022 



01552 


S 00046 

00045 

00020 



01553 


A 00050 

00046 




01554 


A 00049 

00046 




01555 


A 00004 

00004 

00036 



01556 

• 

B 00013 



B 

00013 

01557 


I 00048 

♦00000000+00 



01558 


A 00051 

00046 




01559 


S 00052 

00049 

000^7 



01560 


A 00053 

00003 

00052 



01561 


G 00053 

00C03 

00053 



01562 

• 

B 00014 



8 

00014 

01563 


A 00043 

00048 

00020 



01564 


A 00054 

00003 

f 0049 



01565 


6 00054 

00003 

00054 



01566 


0 00054 

00054 

00053 



01567 


C 00046 

00020 

00016 



01568 


A 00055 

00054 




015' 9 


fc 00015 





01570 

• 

8 00016 



8 

1016 

01571 


A 00056 

00003 

00051 



01572 


G 00056 

00003 

00056 



01573 


M 00054 

00054 

00056 



01574 


S 00055 

00055 

00054 



01575 


S 00051 

00051 

00048 



01576 

• 

8 00015 



B 

00015 

01577 


S 00049 

00049 

00020 



01578 


C 00047 

00048 

00014 



01579 


A 00057 

00003 

00050 



01580 


H 00003 

00057 

00055 



01 56 1 


H 00000 

00004 

00055 



01582 


S 00004 

00004 

00020 



01583 


A 0004 7 

00047 

00020 



01584 


S 00050 

00050 

00047 



01585 


S 00049 

00049 

00020 



01586 


C 00024 

00047 

00013 



0 1 5b 7 


I 90001 

♦00000000+00 



01588 


E 00002 





01589 




00000 

- 


----- 

01590 


K 

01965 
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01592 

• 

8 

00001 



B 00001 

01593 


V 

00012 

♦10000000 >01 


01594 


G 

00010 

00002 

00004 
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U 

90004 

00752 


GEOC. LATITUDE (DEGREES) 

I 

02704 

Q 

90005 

00750 


RADIAL DISTANCE (KM.) 

I 

02705 

Q 

90006 

00755 


INERTIAL RT. AS. ( DEGREES ) 

l 

02706 

Q 

90007 

00756 


VELOCITY RT. AS. (DEGREES) 

I 

027u7 

0 

90008 

00757 


VELOCITY CECL. (DEGREES) 

I 

02708 

Q 

90009 

00758 


MAG. OF VELOCITY (KM/SEC) 

I 

02709 

Q 

90010 

00760 


GEOMAG. R SUB 0 (C.U.L. ) 

I 

02710 

g 

90011 

00761 


GEOMAG. LATITUDE (DEGREES) 

t 

02711 

Q 

90012 

00765 


REAL FIELD L (C.U.L.) 

I 

027 L? 

Q 

90013 

00754 


REAL FIELD 8 (GAMMA) 

1 

02713 

Q 

90014 

0C767 


REAL FIFLC B/BC 

I 

02714 

Q 

90015 

00770 


REAL FIELD RT. AS. (DEGREES) 

I 

02715 

Q 

90016 

00771 


REAL FIELD DECL. ( OEGREES ) 

I 

02716 

Q 

90017 

00405 


OUTPUT PAGE NUMBER 

10 

02717 

Q 

9001 8 

00400 


DATA RECORD COUNTER 

10 

02718 

Q 

90019 

00151 


YEAR OF REFERENCE 

I 

02719 

Q 

90020 

00152 


DAYS JAN. 1-DREF 

I 

02720 

Q 

90021 

01751 


J.D. -SEC. TO J.D. -HR. -MIN. 

F 

02721 

Q 

90022 

01701 


DATE FUNCTION 

F 

02722 

g 

90023 

01646 


RCUND ANO SCALE 

F 

02723 

0 

90024 

00099 


LOC. OF RCUNO VALUE 

0 

02724 

Q 

90025 

00412 


ALPHABETIC SAT. 1DENT. (3 LETTERS) 


02725 

Q 

90026 

0C413 


LAST 4 DIGITS CF SAT. IDENT. NO. 


02726 

Q 

90027 

01801 


DAY COUNT F. 

F 

02727 

• B 

00001 



MASTER ORBIT TAPE OUTPUT F. 


B 00001 02728 

V 

00005 

♦00000000+00 


(ALL INPUT IS Q ' D. SCALES DATA AND WRITES 

02729 

V 

00006 

♦iOOOOOOC+Ol 


1 OATA RECCRD CN TI. ALSO WRITES 2 PAGE 


02730 

V 

00007 

♦4700000Q+G2 


HEADING RECORDS IF 47 DATA RECORDS HAVE 


02731 

V 

00008 

♦10000000+03 


BEEN RRITTEN SINCE LAST HEADING RECORD 


02732 

V 

00009 

♦19000000+04 


USES 49 LCCS. ) 


02/33 

V 

00045 

♦10000000+02 




02734 

V 

00046 

♦10000000+04 




02735 

F 

00020 

90021 90001 


J .0.— SEC. TO J.D. -HR. -MIN. 


02736 

R 

00012 

90019 


YREF 


02737 

A 

00013 

90020 00020 


DAYS JAN. i-DATE 


0273d 

F 

00015 

90022 00C12 


YEAR, MONTH, DAY 


02739 

C 

00007 

90018 00047 


SHOULO NEW PAGE BE STARTEC 


02740 

A 

00012 

00009 00015 


YES. ADD 1900 TO YEAR 


02741 

R 

00010 

90025 


3 LETTERS OF SA1. IDENT. 


0274? 

R 

OOCH 

90026 


LAST 4 DIGITS CF SAT. ID. NO. 


02743 

F 

00013 

90027 00015 


DAY NUMBER 


02744 

R 

00014 

90017 


PAGE NC. 


02745 


T1DATE TIME GEOCENTRIC 

INER. VEL. VECTOR GECMAG. 

RE 

02746 


♦ AL 

F. 6 

P. 



02747 

P 

00010 

00006 XI 151515151501040505040204 SSSSSSANNNSN 


0274H 


T MHDD HHMM LONG. 

LAT. 

DIST. R.A. R.A. DECL. VEL. RO LAT. 

L 
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♦ 

B 

“/BO 
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02750 

p 

00000 

OOOOo 

T I 





02 7 5 L 

A 

900X7 

90017 

00006 

PAGE NC. +1 




0275? 

R 

90018 

0C005 


SET DATA RECORD CNTR.=0 




02753 

* B 

000*7 






B 000*7 

0275* 

H 

00016 

00016 

00CC8 

WMQQ 




02755 

A 

00010 

00016 

00017 

HHDD 




02756 

H 

00021 

GC021 

00008 

HHOC 




02757 

U 

noon 

0C022 


WIN. TO INTEGER + SCALED FR. ( ROUND* SC AL E 

F. 


02750 

s 

%sOQl 2 

00022 

00011 

IS NOT USED, AS N I NOTES WERE 




02759 

H 

00012 

00012 

000*5 

ROUNDED IN J.C.-SEC. fO J.D.-F-MlN. 

F. 



02760 

A 

00011 

00021 

00C11 

HHMM 




02761 

R 

9002* 

000*6 






0276? 

F 

00013 

90023 

90003 

ROUND * SCALE GEOC. LONG, 




02763 

F 

00015 

90023 

9000* 

ROUND » SCALE GEOC. LAT. 




0276* 

R 

9002* 

00006 






02765 

F 

00017 

90023 

'.'0005 

ROUND, SCALE RADIAL DIST. 




02766 

R 

9002* 

00008 






02767 

F 

00016 

90023 

90006 

ROUND, SCALE INERTIAL RT. AS. 




02768 

R 

9002* 

000*5 






02769 

F 

00020 

90023 

90007 

ROUND, SCALE VELOCITY RT. AS. 




02 770 

F 

00022 

90023 

90008 

ROUNO, SCALE VELOCITY OECL. 




02771 

F 

0002* 

90023 

90C09 

ROUND, SCALE VELOCITY HAG. 




0277? 

R 

9002* 

ooooe 






02773 

F 

00026 

90023 

90C10 

ROUND, SCALE RO 




0277* 

R 

9002* 

000*5 






02775 

F 

00028 

90023 

90C11 

ROUND, SCALE GEOHAG. LAT. 




02776 

R 

9002* 

000*6 






02777 

F 

00030 

90023 

90C12 

ROUND, SCAl* l 




02770 

R 

9002* 

00006 






02779 

F 

00032 

90023 

90C13 

ROUND t V 1 




02780 

R 

9002* 

000*6 






02701 

F 

00033 

90023 

9CC1* 

ROUND, SCALE b/BO 




02782 

R 

9002* 

000*5 






02783 

F 

00035 

90023 

90C15 

ROUND, SCALE REAL FIELD RT. AS. 
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F 

00037 

90023 

90016 

ROUND, SCALE REAL FIELD DECL. 
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02790 

E 
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K 

00000 
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02792 

K 
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02793 
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- GECH/CNETIC LATITUDE AND LONGITUDE 




0279* 

Q 

90001 

02361 


SINE 


F 


02795 

Q 

90002 

02365 


COSINE 


F 


02796 

0 

90003 

02201 


ARC TAN Y/X 


F 


02797 

Q 

9000* 

01501 


ARC TAN Y 


F 


02798 

Q 

9CC05 

023*1 


SQUARE ROOT FUNCTION 


F 


02799 

Q 

90006 

007*6 


SGLAT (GEOC. LAT. IN RADIANS) 


I 


02800 

Q 

90007 

007*5 


SGLON (LONG. IN RADIANS) 


I 


02801 

0 

90008 

00761 


SMLATIGEOMAGNETIC LATITUDE) 


0 


02802 

0 

90009 

00762 


SMLONI GEOMAGNETIC LONGITUDE) 


0 


02803 

Q 

00010 

00660 


GEUC.CGLATITUDE OF NORTH GEOMAG. POLE 

(RAD) 


0280* 

0 

00011 

00861 


LONG. OF NORTH GEOHAGNETIC POLE (RAD. 

) 



02805 

* B 

00001 



COMPUTE GEOMAGNETIC LATITUDE ANC LCNGITUOE 

B 00001 

02806 

V 

00012 

+10000000*01 





02807 

R 

00005 

90006 






02808 

R 

00006 

9C007 






02009 

F 

00015 

90002 

00010 

CCS ( CCPLCL ) 




02810 

F 

00016 

90001 

00C05 

SIN (SGLAT) 




02811 

F 

00017 

9C001 

00C10 

SIN \ DCPLCL ) 




02812 

F 

00016 

90002 

00005 

COS (SGLAT) 




02813 

S 

00CL9 

00006 

00011 

SCLCN-AAMBZ 




0281* 

F 

00020 

90002 

00019 

COS(SGLON-AAMBZ) 




02815 

M 

00021 

00015 

00016 

COS(DPLCL) S IN ( SGLAT ) 




02816 

H 

00022 

00017 

00018 

SIN ( OPLCL ) COS ( SGLAT ) 




02817 

M 

00022 

00022 

00020 

SINIDPLCD COS ( SGLAT ) COS ( SGLON- AAHBZ ) 



02810 

A 

00021 

0C021 

00C22 

X*CCS (OPLCL ) S IN ( SGLAT ) ♦ (ABOVE) 




02819 

H 

0002) 

00021 

0002 i 

X*»2 




02820 

S 

0002* 

00012 

00023 

1-X»*2 




02821 

F 

00025 

90^05 

0002* 

SC. RT • (l-x**2) 




02022 

D 

00026 

00021 

00C25 

X/SC.PT. (1-X**2) 




02823 

F 

0000 7 

9000* 

00026 

SMLAT-ARC TAN ( X/SQ.RT • (l-X**2)> 




0282* 

F 

0002? 

ornn i 

non i g 

S IN { SGLON-AAMBZ ) 




02825 

F 

00028 

90002 

00C07 

CCS ( SMLAT ) 




02026 

M 

00029 

00018 

00027 

CCS ( SGLAT ) S I N ( SGLCN- AAM8Z ) 
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D 

0003C 

00029 

00028 

X S CC$ ( SOLA T ) S I N ( SG'.ON- AAMBZ ) /CL S ( SML AT ) 

02828 

F 

00031 

90001 

00007 

S I N ( SPLAT ) 

02829 

M 

00032 

00031 

0CC15 

SIN(SMLAT) COS(DPLCL) 

02850 

S 

00032 

00032 

00C16 

SINJSMLAT) COS(OPLCU-SIN( SGI AT) 

02831 

M 

00033 

00028 

0001 7 

COS ( SMLAT ) S I N ( DPLCL ) 

0283? 

0 

00033 

00032 

00033 

Y*l SIN (SMI AT) COS ( DPLCL ) -S I N { SGL AT ) )/( ABOV 

02833 

K 

0003? 

000 30 


X 

0 2 8 3 A 

F 

00008 

9C003 

00C32 

SMLCN= ARC TAN (Y/X) 

02835 

R 

90008 

00007 



02836 

R 

90009 

00008 



02837 

E 

00002 




02038 



K 

ooooo 

- 

- - 


- 

- 

- 




02839 


K 

02700 










02840 





F 04) 

- RAMS DATA LOADER 







02841 


Q 

00024 

03286 


H-M-S TO 

RADIANS F. 





02842 

• 

b 

00001 



R.A.M.S. 

DATA 

LOAD 

FUNCTION (USES LOCA- 

0 

00001 

02843 


V 

00026 

♦OOOOOOOC+OO 

T1UNS 1 

TC 39) 





02844 


V 

00028 

♦lOOCOOOC+Ol 

ENTER 

WITH 

!Z)-0 

IF 

r.a.m.s.cata is on 



02845 


V 

00031 

♦80000000+01 

CA?OS 

OR (Z) NOT 

EQUAL 0 IF R.A.M.S. 



028*6 


V 

00033 

♦10000000+04 

DATA 

IS CN 

TAPE. 

EXIT WITH THE R.A.M.S. 



02847 


G 

00025 

00001 

00C03 

OATA 

ITEMS 

STORED BEGINNING IN LOCA- 



02848 

• 

B 

00032 



LAST 

DATA 

ITEM. 

(AN 

ITEM * 4 CATES AND 

B 

00032 

02849 


C 

00n?5 

00026 

OOC27 

00027 THE CORRESPONDING R 

•A.M.S.OATA) 



02850 


L 

00005 

00028 

CA 

06C 202050602 020 506020? 

0506020205 


NNNNNNNNNNNNNNNN 



02851 

* 

B 

00029 








B 

00029 

02052 


C 

00005 

00026 

00030 








02863 


H 

GOOGl 

0C0C4 

00026 








02854 


H 

00002 

00004 

C0026 








02855 


E 

00002 










0285 6 

• 

B 

00030 








B 

00030 

02857 


0 

00008 

00008 

00033 








02858 


0 

00012 

00012 

00033 








02859 


0 

00016 

00016 

C0C33 








02860 


0 

00020 

00020 

00033 








02801 


F 

00034 

00024 

00006 








02862 


F 

00021 

00024 

00010 








02063 


F 

00022 

0C024 

00014 








02864 


F 

0002 3 

0C024 

00018 








02865 


H 

00001 

00004 

00005 








02866 


H 

00002 

0C004 

00034 








02867 


H 

00003 

00004 

00C09 








02860 


H 

00004 

00004 

00021 








02869 


H 

00006 

00004 

00022 








028/0 


H 

00007 

00004 

00C17 








028 71 


H 

00005 

00004 

00013 








02872 


H 

00008 

00004 

00023 








02873 


A 

00004 

00004 

00031 








028/4 


E 

00032 










028 /5 

• 

B 

0002 7 








B 

00027 

02876 


L 

00005 

00028 

It 

060 20205060202 C 50602020506020205 


NNNNNNNNNNNNNNNN 



02877 


E 

00029 







«* 



028 78 


K 

OOOOO 

- 

- - 

- - - - 



02879 

K 

02 74 5 






02800 




F 042 

- RAMS DATA 

SEARCH 


02881 

• B 

00001 




R.A.M.S. DATA SEARCH FUNCTION (USES LOCA- 

8 00001 

02862 

V 

0001 1 

♦2000000C+0 l 


TICNS 1 TO 19) 


02883 

V 

00012 

♦00000000+00 


ENTER WITH (Z)* THE FIRST WCRC OF THE 


028 84 

V 

00013 

+10000000+03 


TABLE TC BE SEARCHED AND ( X ) = Yk AK , 


02885 

V 

00016 

♦99999999+08 


(XU)»MCNTH, (X + 2)*DAY INDICATING THE 


02886 

G 

00005 

00001 

00004 


DATE OF THE DESIRED R.A.M.S. EXIT WITH 


02087 

G 

00006 

00002 

00004 


IX+3)«CCRRESPCNDING R.A.M.S IN RADIANS. 


020 08 

G 

00007 

00003 

00C04 


IF THE DATE IS NOT IN THE TABLE, (X + 3)* 


02889 

M 

00008 

00005 

00013 


99999999. 


02890 

A 

00008 

00008 

00006 




02891 

M 

00008 

00008 

00013 




0289? 

A 

00008 

00000 

OOCCT 




0289 $ 

* B 

00015 





B 00015 

02894 

G 

00009 

00001 

00C03 




U2895 

C 

00008 

00009 

00014 

00014 



02896 

G 

00010 

00002 

00C03 




02897 

H 

00004 

00004 

00010 




02898 

E 

0C002 






02899 

* 8 

00014 





U 00014 

02900 
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A 

00003 

00003 

00011 




02901 

C 

00009 

00012 

00015 00015 




02902 

H 

00004 

00004 

00016 




02903 

E 

00002 




*• 


02904 

K 

00000 


. . _ . . . . 




02905 

K 

02800 






02906 




F 148 * REAL FIELD 

RT. ASCENSION AND DECLIN. 



029G7 

Q 

90001 

02201 


ARC TAN Y/X 

F 


02908 

Q 

90002 

02341 


SQUARE ROOT FUNCTION 

F 


02909 

Q 

90003 

02361 


SINE 

F 


02910 

C 

90004 

02365 


COSINE 

F 


0291 L 

Q 

9000$ 

01501 


ARC TAN Y 

F 


02912 

Q 

90006 

00784 


FFRRR (F SUB RJ 

I 


029 i 3 

Q 

90007 

00/83 


FTHTA (F SUB THETA ) 

I 


02914 

Q 

90006 

00782 


FPHEE (F SUB PM 1 

I 


0291 * 

Q 

90009 

00746 


SGLAT IGEOC. L/*T. IN RADIANS) 

I 


02916 

0 

90010 

00745 


SGLCN (LONG* IN RADIANS) 

I 


0291 Z 

Q 

90011 

00780 


GHAVE 

I 


02918 

Q 

90012 

00771 


FFDCL (DECLINATION) 

Q 


02919 

g 

90013 

00 / to 


FFRSN (RIGHT ASCENSION) 

0 


02920 

Q 

00013 

00838 


-2 PI 

I 


02921 

Q 

00014 

00839 


“4 PI 

I 


02922 

Q 

00016 

00837 


PI 

I 


02923 

Q 

00017 

00819 


2 PI 

I 


02924 

Q 

00018 

00846 


4 PI 

I 


029/5 

• B 

00001 



F SCB C (COMPOTES REAL FIELC R.A.+DECL. 

) 

B 00001 

02926 

V 

00015 

♦ 10000000*0 1 




0292/ 

V 

00019 

-10000000+01 




02928 

V 

00023 

♦00000000+00 




02929 

R 

00005 

90006 





02930 

R 

00006 

90007 





029 J i 

R 

00007 

90008 





029 32 

R 

00008 

90009 





02933 

R 

000C9 

90010 





02934 

R 

00010 

90011 





02935 

0 

0002 5 

00007 

00006 

FPHEE/FTHTA 



02936 

F 

00020 

90005 

00025 

A* ARC TAN (FPHEE/FTHTA) 



0293? 

H 

00026 

00007 

00007 

FPHEE**2 



02938 

H 

0002 7 

00006 

00006 

FTHTA*#2 



02939 

A 

00028 

00026 

00027 

FPHEE**2+FTHTA«#2 



02940 

F 

00029 

90002 

00028 

SQ.RT* (FPHEE**2+FTHTA»*2) 



02941 

N 

00030 

00019 

00C05 

1-11 FFRRR 



02942 

0 

00021 

00030 

00029 

(•1) FFRRR/( 2 ABOVE) 



02943 

F 

00021 

90005 

00021 

E*ARC TAN (ABOVE) 



02944 

F 

00031 

90003 

00021 

SINCE 



02945 

F 

00032 

90003 

00C08 

S IN ( SGLAT I 



02946 

F 

00033 

90004 

00021 

COS ( E ) 



02947 

F 

00035 

90004 

00008 

COS ( SGLAT ) 



02948 

F 

00031 

90004 

00020 

CCS ( A ) 



02949 

M 

00034 

00031 

00032 

SINCE ) SIN ( SGLAT ) 



02950 

M 

00053 

00033 

00035 

COS { E )COS ( SGLAT ) 



02951 

H 

00053 

00053 

00036 

CCS(E)CQS(SGLAT)CC$(A) 



02952 

A 

00022 

00034 

00053 

X*SIN( Ei SIN (SGLAT )♦( ABOVE) 



02953 

M 

00037 

0002 2 

00022 

X«*2 



02954 

S 

00C38 

00015 

00037 

l-X**2 



02955 

F 

00039 

90002 

00038 

SQ.RT • ( l-X»»2 ) 



02956 

0 

00040 

00022 

00039 

X/SC.RT. ( 1-X*»?) 



02957 

F 

00011 

90005 

00C40 

FFDCl-ARC TAN t X/SC.RT • ( 1-X«*2 ) ) 



02958 

F 

00041 

90003 

00020 

SIMA ) 



02959 

F 

00042 

90004 

OOCll 

CCS ( FFDCL ) 



02960 

0 

00043 

00041 

00042 

S IN ( A ) /COS (FFDCL ) 



02961 

H 

00049 

00033 

00043 

X*CGS(E)«SINI AJ/CCSI FFDCL ) 



029t>2 

F 

00045 

00003 

00011 

SIN(FFDCL) 



02963 

M 

00046 

00032 

00045 

S IN( SGLAT ) SIN(FFCCL) 



02964 

S 

00047 

00031 

00046 

S I N( E )-S IN ( SGL AT ) S I N ( FFDCL ) 



02965 

H 

00048 

00035 

00042 

CCS ( SGLAT ) COS ( FFCCL ) 



02966 

0 

00050 

00047 

00048 

Y»$IN(E)-$IN(S' LAT> S I N ( FFOL ) /ABOVE 



02967 

F 

00051 

90001 

00049 

SPFS* ARC TAN (X/Y) 



029o8 

A 

00052 

00010 

00009 

GHAVE+SGLCN 



02969 

A 

00012 

00052 

00051 

FFRSN-GHAVE+SGLON+SPFS 



02970 

R 

00024 

00012 


F»FFRSN 



02971 

C 

00024 

00023 

00060 00061 

DOES F - ZERO 



02972 

E 

00062 



F 1$ EQUAL TO ZERC 



02973 

* B 

00061 



F IS LESS THAN ZERO 


B 00061 

029 74 

C 

00024 

00013 

00063 00064 

DOES F EQUAL TC -2 PI 



02975 

• B 

00063 



F IS EQUAL OR GREATER THAN -2 PI 


B 00063 

02976 

A 

00024 

00024 

00017 

F»F+2 PI 
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E 

00062 
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E 

00002 






03397 

• B 

00020 





B 00020 

03398 

C 

00007 

OOOIO 00022 





03399 

F 

00012 

0C076 OOOIO 





03*00 

C 

00012 

00008 00021 





03*01 

s 

0001 1 

00008 00012 





03*02 

G 

00013 

00030 00011 





03*03 

M 

0001* 

OOOIO 00013 





C3*0* 

M 

00015 

0001* 00006 





03*05 

A 

00012 

0001.2 00C07 





03*06 

E 

00023 






03*0/ 

• B 

00021 





B 00021 

03*08 

S 

00011 

00012 00008 





03*09 

G 

00013 

00030 00011 





03*10 

0 

0001* 

OOOIO 00013 





03*11 

0 

00015 

0001* 00006 





03*12 

A 

00012 

00012 00007 





03*13 

A 

00015 

00015 00009 





03*1* 

C 

00015 

00018 C0023 





03*15 

A 

00015 

00015 00009 





03*16 

E 

00023 






03*17 

• B 

00022 





B 00022 

03*18 



K » 

03155 
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0 00016 00007 00010 

03419 

F 00012 00076 0CC16 

03420 

A 00011 00012 00019 

03421 

S 00012 00005 00012 

03422 

G 00013 00030 00011 

03423 

M 00014 00010 00013 

03424 

M 00015 00014 00006 

0 342 5 

C 00017 00015 00023 

03426 

G 00013 00029 00011 

03427 

M 00015 OOOiO 00013 

03428 

A 00012 00012 00007 

03429 

B 00023 

B 00023 03430 

* 00015 00015 OOC25 

03431 

H 00001 00004 00015 

03432 

H 00002 00004 00012 

03433 

E 00002 

034 34 

B 00076 

B 00076 0343b 

G 00080 00076 00078 

03436 

R OOObl 00082 

03437 

R 00084 00005 

03438 

B 00085 

B 00085 03439 

0 00081 00061 00083 

0 34<*C 

C 00007 00081 00086 

03441 

A 00084 00084 00081 

03442 

C 00084 00090 00089 

03443 

G 00087 00091 00084 

03444 

C 00080 0C087 00085 

03445 

S 00084 00084 0C081 

03446 

C 00087 00080 00085 

0344 7 

A 00084 00084 00081 

0 344 8 

B 00086 

8 00086 03449 

H 00076 0C079 00084 

0345C 

6 00077 

03451 

V 00028 ♦10000000*08 

G3452 

V 00082 *64000000*02 

03453 

V 00083 *20000000*01 

03454 

B 00089 

B 00089 03465 

S 00084 00064 00081 

03456 

E 00085 

0345 / 

V 00090 *37000000*02 

03466 

V 00091 *10000000*01 

03459 

V 00092 *10000000*02 

0 3460 

V 00093 *10000000*03 

03461 

V 00094 *10000000*04 

0 3462 

V 00095 *10000000*05 

03463 

V 00096 *10000000*06 

03464 

V 00097 *10000000*07 

03465 

V 00098 *10000000*08 

03466 

V 00099 *10000000*09 

03467 

V 00100 *10000000*10 

03468 

V 00101 *10000000*11 

03469 

V 00102 *10000000*12 

034 7 C 

V 00103 *10000000*13 

0 3471 

V 00104 *10000000*14 

0347? 

V 00105 *10000000*15 

0347 3 

V 00106 *10000000*16 

0 34 74 

V 00107 *10000000*17 

034 75 

V 00108 *10000000*18 

03476 

V 00109 *10000000*19 

03477 

V 00110 *10000000*20 

034 78 

V OOlil *10000000*21 

034 79 

V 00112 *10000000*22 

0 ° 30 

V 00113 *10000000*23 

0 34b 1 

V 00114 *10000000*24 

034b? 

V 00115 *10000000*25 

0 3 4 H 3 

V 00116 *10000000*26 

0 3464 

V 00117 *10000000*27 

034rt5 

V 00118 *10000000*28 

03486 

V 00119 *10000000*29 

03487 

V 00120 *10000000*30 

03488 

V 00121 *10000000*31 

03489 

V 00122 *10000000*32 

03490 

V 00123 *10000000*33 

0 349 1 

V 00124 *10000000*34 

0349? 

V 00125 *10000000*35 

034 y 3 

V 00126 *10000000*36 

03494 

V 00127 *10000000*37 

0 3495 
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V 00120 ♦ 100CC00C+ 38 03496 

0 349 ( 
0 34 9 h 
03499 
0 3500 
03501 
0350? 


K 

00000 

- 

- 


- 

03503 

K 

03285 





U 3504 




F 020 - 

HCURS/MIN/SEC TO RAO IANS 


03505 

Q 

00000 

00847 


HR/MIN 

I 

03506 

Q 

00009 

OC840 


RAO/HR 

l 

03^07 

* B 

oooot 



HCURS-MNUTtS-SECCNDS TO RADIANS 

B 00001 

0 35od 

G 

00005 

00001 

00003 



035C / 

G 

00006 

00002 

00003 



03510 

G 

00007 

0C003 

00003 



03511 

M 

00010 

0C007 

00C08 



0 3512 

A 

00010 

00010 

00006 



03513 

M 

00010 

00010 

00008 



03514 

A 

00010 

OCOIO 

00005 



03515 

M 

00010 

00010 

000C9 



03516 

H 

00001 

00004 

00010 



0351 7 

E 

00002 





0351 6 


K 

00000 

- 

- - - - 


- 


03519 

K 

03600 






03520 




F 151 - SOLAR 

EPHEMER I S TAPE REAU 



03521 

0 

50000 

03808 


LCC.8 OF INITIALIZE SUN TAPE K t A C F. 



03522 

Q 

80001 

01841 


OBSERVED DATE TG J.D. 

F 


03523 

Q 

80002 

0C151 


YEAR CF REFERENCE 

I 


03524 

Q 

80003 

00152 


CAYS JAN. 1-DAY CF REF. 

I 


03525 

Q 

80004 

00105 


TIP), TIME CF ITPM FOR WHICH TC INTEKP. 

0 


03526 

C 

80005 

00186 


T ( 0 ) , T I HE CF 2ND ITEM IN INTEKP. TABLE 

0 


03527 

Q 

00006 

00187 


h, INTERPOLATION STEP SIZE 

0 


03528 

Q 

91000 

ocooo 


LOCATION ZERO 

I 


03529 

Q 

9100 L 

00083 


BAD RECORC INDICATOR 

I 


035*0 

0 

91002 

00084 


NC. OF READ ATTEMPTS 

I 


03531 

Q 

91003 

00063 


MINGS CNE (TO BACKSPACE) 

I 


03532 

Q 

91010 

00010 


TRANSFER POINT FCR BAD RECORD 



03533 

Q 

00104 

00833 


C.U. T./DAY 

I 


03534 

Q 

00151 

03761 


INTERPOLATION FUNCTION 

F 


03535 

* B 

00001 





B 0000 l 

03536 

V 

00106 

+IOOCCCOC+C6 




03537 

V 

00114 

♦coooooco+oo 




03538 

H 

00118 

- 





03539 

G 

00013 

00001 

00003 




03540 

• B 

00005 





B 00005 

03541 

C 

00040 

00013 

00007 00016 




0354? 

H 

00001 

OOOC4 

00041 




03543 

H 

00002 

00004 

00042 




03544 








03545 

H 

00003 

00004 

00043 




03546 

£ 

00002 






03547 

* B 

00016 





B 00016 

03548 

C 

00013 

0C050 

CC006 00017 




03549 

H 

00001 

0C004 

00051 




03550 

H 

00002 

00004 

00052 




03551 

H 

00003 

00004 

CCC53 




03552 

E 

00002 






03553 

• B 

00017 





B 00017 

03554 

ft 

00080 

00013 





03555 

R 

80004 

00080 


STORE T P FOR INTERPOLATION 



03556 

R 

80005 

00040 


STORE T 0 FUR INTERPOLATION 



03557 

R 

B0006 

00104 


STORE INTERPOLATION STEP INTERVAL 



03558 

F 

00081 

0C151 

00031 




03559 

H 

00001 

00004 

00081 




03560 

F 

00002 

00151 

00032 




03561 

H 

00002 

0C004 

00082 




0356? 

F 

00083 

00151 

COO 3 3 




C 356 3 

H 

00003 

00004 

00083 




03564 

E 

00002 






0G565 

* B 

00006 





B 00006 

03566 

I 

00014 

- 30000000 + 02 




03567 

C 

00090 

00009 

00018 




03568 

• N 

00C08 





N 00008 

03569 




K = C360C 



PAGE 046 



B-48 


® iU 


K * C360C 


PAGE 049 


A 00014 
G 00080 
K 00050 
G 00081 
H 00051 
G 00082 
H 00052 
G 00083 
M 00053 
C 00009 
I 00135 
I 00145 
E 00144 

00139 
00005 

B 00018 
R 00090 
L 00080 
L 00080 
l 00080 
E 00006 

B 00007 
1 00014 
C 00010 
N 00008 
S 00014 
G 00080 
H 00040 
G 00081 
H 00041 
G 00082 
H 00042 
G 00083 
H 00043 
C 00014 
L 00020 
I 00135 
I 00145 
E 00144 

B 00141 
E 00005 

B 00019 
I 00014 
L 00020 
R 00090 
E 00007 

B 00144 
R 00025 
B 00026 
L 00091 

C 91000 
A 00025 
C 00025 
L 00000 
E 00026 

B 00027 
R 00025 
R 00089 
R 00090 
F 00115 
R 00090 
M 00109 
0 00110 
A 00110 

c ooue 

S 00110 
B 00119 
D 00111 
A 00111 
C 00118 
S 00111 
B 00120 


00014 00012 


03570 

00060 00014 


03571 

00014 00080 


03572 

00061 00014 


03573 

00014 00081 


03574 

00062 00014 


03575 

00014 00062 


0 3 5 76 

00063 00014 


03577 

00014 00083 


03578 

CC014 00008 


03579 

♦00000000*00 


03 580 

*00000000+00 


035H1 



03562 


B 00139 

03583 



03564 


B 00016 

03565 

00009 


03586 

OCOIO TF 


03587 

00010 TF 


03588 

00010 TF 


03589 



03590 


B 00007 

03591 

* 30000000' 02 


03592 

00090 0001'. 


03593 


N 00008 

03594 

0C014 00C12 


03595 

00030 00014 


03596 

00014 00080 


03597 

0003 l 00014 


03598 

00014 00081 


03599 

00032 00014 


03600 

00014 00082 


03601 

00033 00014 


03602 

00014 00083 


03603 

00009 00008 


03604 

00015 TF 


03605 

-3O0COCOC+O2 


03606 

♦20000000*01 


0360 I 



03608 


B 00141 

03609 



03610 


B 00019 

03611 

-30000000*01 


03612 

00014 TF 


0361 3 

00010 


03614 



03615 


00009 COUNT = 0 

OCOIO TF 01 020202020101010701010107010101071515SNNNANSNANSNANSNSS 



0301 

SN 

91001 

00027 00027 

BAD RECORD CHECK 

0C025 

00010 

CCUNT *ONE 

91002 

9 1C 10 

ENOUGH 

91003 

TF 



B 00144 03616 

03617 

B 00026 03618 

03619 

03620 

03621 

03622 

03623 

03624 

03625 


00090 



SAVE 

CONTENTS OF LOC. 90 

80002 



YREF 


80003 



CAYS 

JAN. 1 - CREF 

80001 

00089 


DATE 

OF SIN VECTOR TO J*D 

00025 



RESTORE IOC. 90 

00115 

00104 


T IN 

YLT 

00096 

00106 




00110 

00C95 




00094 

00119 

00119 



00114 

00110 




00099 

00106 




00111 

00098 




00097 

00120 

00120 



00114 

00111 





B 00027 03626 

03627 

03628 

03629 

03630 

03631 
0363? 

03633 

03634 
036 35 
03636 

B 00 L 19 03637 

03638 

03639 

03640 

03641 

B 00120 03642 
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D 

00112 

00102 

00106 


A 

00112 

00112 

C0101 


C 

00118 

00100 

00121 00121 


S 

00112 

00114 

00112 


• B 

00121 




H 

00060 

00135 

00109 


H 

00061 

00135 

00110 


H 

00062 

00135 

00111 


H 

00063 

00135 

00112 


G 

00136 

00139 

00145 


E 

00138 




* 6 

00146 




A 

00135 

00135 

00012 


C 

00012 

00135 

00144 


E 

50000 




V 

00009 

+00000000+00 


V 

00010 

♦100000CC+01 


V 

00011 

♦70000000+01 


V 

00012 

♦10000000+02 


V 

00015 

-20000000+01 


V 

00090 

+00000000+00 


K 

00000 

- 

_ _ 


K 

03760 







F 138 - EVERETTS 

INTERPOLATION 

Q 

90001 

00187 


H, INTERPOLATION STEP SIZE 

0 

90002 

00185 


KPI.UHE CF I TEN FOR WHICH TO INTERP. 

Q 

90003 

00186 


T(0),TIME CF 2N0 ITEM IN INTERP. TABLE 

* B 

00001 



EVERETT'S INTERPOLATION FUNCTION 

V 

00005 

♦10000000+01 

ENTER hi TH (Z)»F -1*(Z+10)*F 0,(Z+20)-F 

V 

00006 

+60000000+01 

( Z+30 )=F 2. EXIT WITH (X)=F P. 27 LOCS. 

G 

00010 

ooooi 

00003 

F -1, VALUE OF FUNCTION AT T(0>- H 

r* 

U 

CCC11 

00011 

00003 

F 0 , VALLE OF FUNCTION AT T(0) 

G 

00012 

00021 

00003 

F 1 , VALUE OF FUNCTION AT T(0)+ H 

G 

00013 

00031 

00003 

F 2 , VALLE OF FUNCTION AT T(0)+2H 

A 

00015 

00011 

00011 


S 

00015 

00012 

OOC15 


A 

00015 

00015 

00010 

2ND CENTRAL DIFF.IF 0) * F l - 2F 0 + * 

A 

00016 

00012 

00012 


S 

00016 

00013 

00016 


A 

00016 

00016 

OOCll 

2ND CENTRAL DIFF.IF 1) * F 2 - 2F 1 ♦ F i 

$ 

00018 

90002 

90003 


D 

oooie 

00018 

90001 

P = IT P - T 0) / H 

S 

00019 

00005 

00018 

G * 1 - P 

M 

00020 

00019 

00019 


S 

00020 

00020 

00C05 


m 

00020 

00019 

00020 


D 

00020 

00020 

00006 

A * Q (Q**2 - l) / 6 

m 

00021 

00018 

00C18 


S 

00021 

00021 

00005 


m 

00021 

0C016 

00021 


D 

00021 

00021 

00006 

B * P (P + + 2 - 1) / 6 

H 

00022 

00019 

OOCll 

Q (F C) 

M 

00023 

00018 

00012 

P <F 1) 

M 

00025 

00020 

00015 

( A ) (2ND CENTRAL 0 IFF. ( F 0)) 

M 

00026 

00021 

00016 

( B ) (2ND CENTRAL CIFF.(F 1>) 

A 

0002 7 

00022 

00C23 


A 

00027 

00027 

00025 


A 

00027 

00027 

00026 

F P • VALUE OF FUNCTION AT T(0) + PH * 

H 

00001 

0000* 

00027 

(QMF 0) ♦ (P)(F 1) ♦ ( A ) ( 2ND CIFF.IF 0 

E 

00002 



+ ( B M 2ND DIFF.(F D! 


03643 

03644 

03645 

03646 

0 00121 03647 

03640 

03649 

03650 

03651 

03652 

03653 

B 00146 03654 

03655 

03656 

03657 

03658 

03659 

03660 

03661 

03662 

03663 

03664 

03665 

03666 

03667 

03668 

03669 

B 00001 03670 

03671 
036 72 

03673 

03674 

03675 

03676 

03677 

03678 

03679 

03680 

03681 

03682 

03683 

03684 

03685 

03686 

03687 

03688 

03689 

03690 

03691 

03692 

03693 

03694 

03695 

03696 

03697 
03690 

03699 

03700 

03701 
0J7U2 


K 00000 - - - - -- -- 

K 03800 

INITIALIZE SUN TAPE READ F. 
Q 90001 00081 
0 90002 00816 
0 90003 00080 
Q 90004 03703 
Q 90005 03735 
Q 90006 03744 
0 90007 03745 
U 90008 00003 
• B 00001 

V 00005 *00000000+00 

V 00006 +10000000+01 


SUN TAPE IOENT. 

SEC/C. U.T. 

FACTOR TO ADD TO U.T. TO GET E.T. 
LOC. 1C3 CF SUN TAPE READ F. 

LCC • 135 CF SUN TAPE READ F. 

ICC. 144 CF SUN TAPE READ F. 

LCC. 145 CF SUN TAPE READ F. 

ERROR EXIT 

INITIALIZE SUN TAPE READ FUNCTION 
(READS 4 VECTORS FRO W SUN TAPE TC 
INTERPOLATION Y ABLE » + CHECKS IC.CN 


I 

I 

10 


SET UP 
TAPE) 


03703 

03704 

03705 
03 706 

03707 

03708 

03709 

03710 
0371 1 

03712 

03713 

03714 

B 0000 l 03715 
03716 
0371 7 
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0 90003 9C003 90002 

1 90007 ♦70000000+01 
I °3005 -30C0000C+02 

90006 


U.T. CORK. FACTOR TO C.U.T* 

GC TO SUN TAPE READ F. AND READ 
A VECTORS FRCM TAPE, STORING 
IN INTERPOLAT ICN TABLE 


B 00008 

C 9000A 90001 00C09 0CI0C9 
E 00002 


PT. OF RETURN PROP SUN TAPE READ F, 
DID SUN TAPE HAVE PROPER 10. 

YES 


B 00009 NC 

T WRONG ID. CN SOLAR PERT. TAPE ON TF 
P 00000 0C006 PA 
E 90008 


(NORMALLY B-A) 


K 00000 - - - - 

K 03850 

WRITE TITLE RECORD 
Q 90001 06200 
Q 90002 0C1 2c 
G 90005 00 7^> 1 
Q 9000A 00137 
0 90005 0C1A6 
0 90006 00131 
£ 7 C C C 7 00«*A9 
G 90008 00139 
G 90009 001A9 
Q 90010 01618 
Q 9001 A 01801 
Q 90015 06215 
0 90016 06203 
0 90017 0620A 
U 90018 06205 
Q 90019 06206 
Q 90020 06207 
G 90021 06208 
G 90022 06210 
Q 90023 06209 
G 9002 A 06199 
G 90025 06210 
Q 90026 06211 
0 90027 06212 
G 90028 06213 
0 90029 00092 
G 90030 QC093 
0 90031 Q009A 
G 90032 00090 
G 90033 00091 
G 9003A 03821 
Q 90035 0C613 
G 90036 006 1 A 
Q 90037 00609 
G 90038 00621 
Q 90039 00502 
G 900A0 0C622 
Q 900A1 0062A 
G 900A2 0C619 
G 900A3 00623 
Q 900AA 00618 
0 900A5 00620 
G 900A6 00617 
Q 900A7 062 AO 
G 900A8 062 A 1 
0 900 *9 062A2 
Q 90050 062A3 
Q 90051 062 AA 
Q 90052 062A5 
G 90053 062A6 
G 9005A 062A7 
Q 90055 062A8 
Q 90056 062 AS 
G 90057 06250 
G 90058 06251 
B 00001 

V 00006 ♦10000000+01 

V 00006 +11000000+02 

V 00011 -lOOOGOOC+Ol 
P 00000 OCOll TCB 


CN ORBITAL TAPE FORMAT- 3A 

FIRST LOC. OF RECORD FROM ORBITAL TAPE 

FIRST LOC. OF START YR , MO , DAY 

FORM CF DATA I DEN T I F ICAT I CN 

YYMMDD START TIME 

SEC. OF DATA 

FIRST LOC. OF ENO YR, MO • DAY 

DELTA T FCR 0RB3 TAPE (OR ZERO) 

YYMMDD END TIME 

SEC. OF DATA 

RUN IDENT. DATA 
0 AY CT. FLNCTICN 

WD.16 (FIRST WD. OF RUN ID. DATA) 

DATE U.T. START TIME 

OF DATA 


DAY CT. OF YR. OF DATA 0 

SEC. 0 

DATE * T . END TIME 0 

DAY CT. OF YR. OF DATA 0 

SEC. 0 

RUN IDENT. DATA 0 

WD.IO CF CRB3 TITLE RECORD (DELTA T) 0 

LOC. PRECEDING RECCRD FROM 0RB1 TAPE 0 

WD.ll CF CRB3 TITLE RECORD 0 

NC.12 CF CR63 TITLE RECORD 0 

WD.13 OF CRB3 TITLE RECORD 0 

WD.1A CF CRB3 TITLE RECORD 0 

NO. OF DATA ITEMS IN 0RB3 DATA RECORD I 

NC. CF WORDS PER DATA ITEM I 

WGROS/ITfcM THAT ARE FUNCTION OF TIME I 

NO. OF WORDS IN 0RB3 DATA KECURD I 

NC. OF DATA WORDS IN ORB? DATA RECCRO I 

FORTRAN RECCRD FCRMAT FUNCTION F 

YYMMDD OF EPOCH I 

DAY COUNT OF EPOCH 1 

SECONDS OF EPOCH I 

SEMI-MAJOR AXIS (KM.) I 

ECCENTRICITY I 

INCLINATION \ DEG. ) I 

R.A.QF ASC • NODE (DEG.) I 

R.A.OF ASC. NODE DCT (DEG/DAY) I 

ARG.OF PERIGEE ( OEG. ) I 

ARG.OF PERIGEE OOT (DEG/DAY) I 

PERIOD (MIN.) 1 

PERIOD DOT (MIN/DAY) I 

WD.A1 CF CRB3 TITLE RECORD 0 

W0.A2 OF RECORD D 

WO. A3 OF RECORD U 

WO.AA CF RECORD 0 

WD.A5 OF RECORD 0 

WD.A6 OF RECORD 0 

WD.A7 OF RECORD 0 

MU.A6 OF RECORD 0 

WD.A9 OF RECORD 0 

WD.50 OF RECORD 0 

WO. 51 CF RECORO 0 

WO. 52 CF RECORO 0 

WRITE TITLE RECORO ON 0RB3 TAPE 
(CHANGES SOME WORDS OF TITLE RECORD LGADED 
FROM CRBi TAPE ♦ WRITES OUT AS CRB3 TITLE) 
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R 

90001 

90003 






03794 

R 

90016 

90004 


DATE CF f IRST CATA ON TAPJ 




03795 

F 

90017 

90014 

90002 

day ct. OF YEAR 




03796 

R 

90018 

90005 


SEC. CF FIRST DATA 




0 3 797 

R 

90019 

90008 


DATE CF LAST DATA ON TAPE 




03798 

F 

90020 

90014 

90006 

DAY CT* OF YEAR 




03799 

K 

90023 

90007 


INTERVAL 




03800 

R 

90025 

90029 


STORE DATA ITtPS/RECORO IN WD.ll 




03801 

R 

90021 

90009 


SEC. OF LAST DATA 




03802 

R 

90026 

90030 


STORE WORCS/DATA ITFM IN WD.12 




03803 

R 

9002 7 

90031 


STORE WDS/ITEM THAT ARE F(T> IN WD.13 




03804 

R 

90028 

90032 


STORE WORDS/RECORC IN WD.14 




03805 

I 

00005 

♦0000^000+00 





03806 

♦ B 

00010 



GET RUN ICENT. DATA 


B 

00010 

03807 

G 

00007 

90010 

00005 

AND HOLD INTO 




03808 

,H 

90C15 

00005 

00007 

TITLE RECORD STG. 




03809 

A 

00005 

00005 

00006 





03810 

C 

00008 

00005 

00010 





03811 

R 

90047 

90035 


STORE EPOCH YYMMDC IN W0.41 




03812 

R 

90048 

90036 


STORE DAY CT.CF E^OCH IN WD.42 




03813 

R 

90049 

90037 


STORE SEC. OF EPOCH IN WD.43 




03614 

R 

90050 

90038 


STORE A IN WD.44 




03815 

R 

90051 

90039 


STORE 6 IN WO. 45 




03816 

R 

90052 

90040 


STORE I IN WD.46 




0381 7 

R 

90053 

90041 


STORE R.A.QF ftjr.ne IN WD.47 




03816 

R 

90054 

90042 


STORE R.A.OF NCDE DOT IN WD.48 




03819 

R 

90055 

90043 


STORE ARG.OF PERIGEE IN WD.49 




03020 

R 

90056 

90044 


STORE ARG.OF PERIGEE DOT IN WD.50 




03821 

R 

90057 

90045 


STORE PERIOD IN WC.51 




0382? 

R 

90058 

90046 


STORE PERIOD DCT IN WD.52 




03023 

F 

90024 

90034 

90033 

FORMAT DATA FOR FORTRAN RECORD 




03024 

P 

90024 

90032 

TCB 





03825 

E 

00002 







03826 









03827 

K 

00000 

- 

_ - 


_ 



03828 

K 

03875 







03829 


WRITE END RECORDS CN 

ORBITAL TAPE FORMAT- 3A 




03830 

0 

90001 

05600 


FIRST LOC. OF DATA RECORD STG. 

0 



030 H 

a 

90002 

05601 


WORD l OF DATA RECORD 

0 



03832 

0 

90003 

05602 


MGRO 2 

0 



03833 

a 

90004 

05603 


WORD 3 

0 



03834 

a 

90005 

00925 


RECORD STORAGE CM*. 

10 



03835 

a 

90006 

00748 


PER CENT CF ORBIT IN SUN CR 999 

I 



03836 

a 

90007 

00749 


YEAR CF LAST DATA ITEM STORED IN RECORD 

I 



03837 

a 

90008 

00937 


TYPE CF DATA IND.FOR SPFCIAL DATA ITEM 

I 



03038 

a 

90009 

00090 


NO. CF WORDS IN OR63 DATA RECORC 

I 



03839 

a 

90010 

00091 


NO.CF DATA WORDS IN 0RB3 DATA RECORD 

I 



03840 

a 

90011 

00093 


NO. CF WORDS PER CATA ITEM 

I 



03841 

a 

90012 

00095 


(WORDS/ITEM) ( ITEMS/RECQRD -l) 

I 



03842 

a 

900 IB 

03821 


FORTRAN RECORD FORMAT FUNCTION 

F 



03843 

• B 

00001 



WRITE END RECORDS CN CRB3 BINARY TAPE 


B 

00001 

03B44 

V 

00005 

♦00000000+00 

(STORES AND WRITES SENTINEL ITEM RECORD 0 



03845 

V 

00006 

♦10000000+01 

CRB3 TAPE, FOLLOWED BY 2 SENTINEL RECORDS 



03846 

V 

0000 7 

-10000000+01 

CONTAINING 9'S IN WORD 1. THEN WRITES 

EOF 



03847 

V 

00006 

♦99999999+08 

ON AND REWINDS TAPE. USES 14 LCCS.) 




03848 

c 

90005 

00005 

00011 00011 

DID LAST CATA FILL A RECORD 




03849 

* B 

00012 



YES. STORE A RECORD HAVING 9*S 


B 

00012 

03850 

H 

90002 

90005 

00CO8 

IN EACH WORD CF ITS 1ST ITEM 




03851 

A 

90005 

90005 

00006 





0J852 

C 

90011 

90005 

00012 





03853 

E 

00013 







03854 

• B 

00011 



LAST DATA DID NOT FILL A RECORD 


B 

00011 

03855 

A 

00010 

90005 

90011 





03856 

• B 

00014 



STORE AN ITEM LF 9»S 


B 

00014 

03057 

H 

90002 

90005 

GCC08 

AFTER THE LAST VALID DATA ITEM 




03058 

A 

90005 

90005 

00006 





0 38 ->9 

C 

00010 

90005 

00014 





03860 

R 

90005 

9001 2 


SET CNTR. TO STORE SPECIAL ITEM 




03H61 

H 

90002 

90005 

90008 

STORE TYPE INO.AS WO.l CF SP.ITEM 




03062 

H 

90003 

90005 

90007 

MD. 2* YEAR CF LAST VALID OATA ITEM 




O36o3 

u 

90004 

90004 

90006 

WC • 3*P6R CENT Cl CRBIT IN SUN CR 999 




03864 

• B 

00013 





B 

00013 

03865 

F 

90001 

90013 

90010 

FORMAT OATA FCR FORTRAN RECORD 




03866 

P 

90001 

90009 

TCB 

WRITE SENTINEL ITEM RECORD 




03867 

R 

90002 

00008 






03068 

F 

90001 

9C013 

90010 





03869 

P 

90001 

90009 

TCB 

WRITE 2 SENTINEL RECORDS* 




038 /0 


K * 03875 PAGE 052 


B-52 
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P 90001 90009 TCB 
S 00009 00007 00007 
P 00000 0C009 TCB 
P 00000 00007 TCB 
E 00002 


EACH HAVING 9*S IN WORD l 
EOF 

AND REWIND 0RP3 1 APE 


038 71 
038 7? 
0387 3 
038 7 9 
0 38 7 5 

038 76 


00000 

03900 

COMPUTE 

90001 00225 

90002 00226 

90003 00229 
90009 00230 

90005 00231 

90006 00232 

90007 00233 

90008 002 3* 

90009 00235 

90010 00700 
900 L 1 00701 

90012 00275 

90013 00276 
90019 00277 

90015 00720 

90016 00795 

90017 00796 

90018 00735 

90019 00736 

90020 00737 

90021 00738 

90022 00739 

90023 00790 
90029 00792 

90025 00752 

90026 00765 

90027 OC 766 

90028 00770 

90029 00771 

90030 00080 

90031 00797 

90032 00799 

90033 00822 
90039 OOfc 59 

90035 00621 

90036 03601 

90037 01191 

90038 02771 

90039 02876 

90090 02801 

90091 03931 
B 0000 l 

R 00010 90010 

00011 90011 

00012 90012 

00013 90013 
00019 90019 

00015 90015 

00016 90016 

00017 90017 

90010 90001 

9001 1 90002 

90018 9C009 

90019 90005 

90020 900C6 

90021 90007 

9002 2 90008 

90023 90009 

00018 90003 
90029 90036 

90012 90037 

90025 90017 
00000 90038 

90031 90026 

90026 90031 

00005 

90032 90027 

90027 90032 

00006 


R 

R 

R 

R 

R 

R 

R 

R 

R 

M 

M 

M 

H 

M 

M 

A 

F 

F 

M 

F 

C 

R 

B 

C 

R 

B 


AND STORE 0RB3 SPECIAL PGINT DATA 
J.D. 

SECONDS 


ITEM 


90C33 

90033 

90033 

90039 

Q 0039 

90039 

90030 

00018 

90003 

90035 

OCCCO 

00005 


00006 


0 IC.L'.T.) 


T 0, TIME OF 
SPECIAL POINT 

SAT. POS. VECTOR 
T 0 IN C.U.L. 


AT 


dot 

DOT 
DOT 

. 0 . 

SECONDS 
LONG. (OEG ) 

GE0CET1C LAT . ( CEG ) 

HT. { KM ) 

RADIAL DIST. (C.L.L. ) 
LONG. (RAC) 

GEOCENTRIC LAT. (RAD) 


S AT • VEL • VEC T CR 
T 0 IN CUL/CUT 


AT 


TIME* DATA FCR 0RB3 
RECORD (INITIALLY 
T1,TIME OF REG. DATA 
FULL • SP. PT • , ♦ DATA) 


SAT. POS. VECTCR 
T 0 IN KM 


AT 


SAT. VEL. VECTCR AT 


T 0 IN KM/SEC 


0 ( A «U. ) 
(DEG) 
(C.U.L. ) 
(GAUSS) 

0 (DEG) 

0 (DEG) 
0.1. TO GET E.T. 

(C.U.L. ) 
(GAUSS) 


► AT 
AT 


I 

I 

I 

I 

I 

I 

I 

I 

I 

10 

10 

10 

10 

10 

IU 

10 

10 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


DOT 
OCT 
DOT 

SOLAR POS. VECTCR AT 
GEOCENTRIC LAT. AT T 
L AT T 0 
B AT T 0 

REAL FIELD RT .AS 
REAL FIELD DECL. 

FACTOR TO ADD TO 0.1. TO GET E.T. (CUl) 

M AX. L ALLOWED 
M AX. B ALLOWED 
KM/C.U.L. 

(KM/C.U.L. ) (C.L.T./SEC) 

DEG/RAC 

SON TAPE READ F. F 

SOB-SATELLITE PT.* HT. E 

BILM F 

GREENWICH HOUR ANGLE F. F 

F SOB C F 

STORE, WRITE 0RB3 DATA RECORD F 

COMPUTE AND STCRE 0RB3 SPECIAL POINT CATA 

SAVE T 1 AND DATA AT THIS TIME, 

AS DATA AT T C MOST GO IN LGCS. 

FOR STG. IN 0RB3 DATA RECORD 


STORE J.D. 

AND SEC. CF T 0 FCR CRB3 RECORD 
PCS. VECTOR AT T 0 TO KM FCR CR63 


VEL. VECTOR AT T C TO KM/SEC FCR 0RB3 


CONVERT U.T. TC E.T. 

COMPUTE SCI AR POSITIUN VECTOR AT T 0 
COMPUTE LONG. , LAT. (GEGC.+GEOD. ) ,hT. 
GEOC.LAT. TO DEG. (FCR FILM) 

ENTER BILM TO COMPUTE L AND B 
DOES L EXCEED MAX. 

YES. SET L » MAX. 


DOES B EXCEED MAX. 
YES. SET B * MAX. 


B 00001 


C39GC 


B 00005 

B OOOUb 
PAGE 053 


03877 
0 38 78 
038 77 
0 38bO 
0 3fio l 
G 3 8 d ? 

0 38ti 3 

03884 

03885 

03886 
038b 7 
0388H 
03 889 

03890 

03891 
0389? 
03893 
03899 
03896 
03896 
03H97 

03898 

03899 
0 3900 

03901 

03902 

03903 

03904 

03905 

03906 
0390 7 

03908 

03909 

03910 
0 39 L l 
0 3912 
0 3913 
03914 
03916 
03916 
039 L 7 
0 3918 
039 L 9 

03920 

03921 

03922 

03923 

03924 

03925 

03926 
0J927 

03928 

03929 

03930 
039 31 
0393? 
03933 
U 39 34 
0393* 

03936 

03937 
039 38 
03939 
0 3940 

03941 

03942 

03943 

03944 
03946 

03946 

03947 
H 3948 
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054 


F 

00000 

90039 OOCCO 

COMMUTE GREENWICH HOUR ANGLE 



03949 

F 

00000 

90040 00000 

COMMUTE REAL FIELD RT.AS 

.AND DECL. 



03950 

M 

9002 8 

90028 90035 

RT. iS. TO DEGREES 




J3951 

H 

90029 

90029 90035 

DECL . TO DEGREES 




03952 

F 

00000 

90041 OOCOO 

STORE SPECIAL POINT DATA IN 0R83 RECORD 



03953 

R 

90010 

00010 

PUT T 1 AND DATA AT THIS 

TIME BACK 



03954 

R 

90011 

OCOil 

INTO LUCS. FOR STG.IN ORB 3 DATA RECORD 



03955 

R 

90012 

00012 

AS NEXT REGULAR SATELLITE DATA II EM 



03956 

R 

90013 

00013 





03957 

R 

90014 

00014 





03958 

R 

90015 

00015 





03959 

R 

90016 

00016 





03960 

R 

90017 

00017 





0396 L 

E 

00002 






03962 








03963 

K 

00000 

- 



- 


03964 

K 

03930 






03965 


STORE AND WRITE DATA RECORD CN ORBITAL TAPE FORMAT- 

3 A 



03966 

0 

90001 

00700 

J.D. 

TIME CF CATA 

I 


03967 

Q 

90002 

00701 

SECONDS 


I 


03968 

0 

90003 

00735 

X 

SAT. POS. VECTOR 

I 


03969 

G 

90004 

00736 

Y 

IN KM. 

I 


03970 

Q 

90005 

00737 

Z 


I 


03971 

Q 

90006 

OC738 

X DCT 

SAT. VEL. VECTOR 

1 


03972 

G 

90007 

00739 

Y DCT 

IN KM/SEC 

I 


03973 

Q 

90008 

00740 

Z DOT 


I 


03974 

Q 

90009 

00275 

LCNGITLDE 

(DEGREES) 

I 


03975 

Q 

90010 

OC2 76 

GEODETIC LATITUDE 

(DEGREES) 

I 


03976 

Q 

90011 

00277 

HT.ABGVE SPhERCIC 

(KM) 

I 


03977 

G 

90012 

00742 

X 

SOLAR PCS. 

I 


03978 

Q 

90013 

00743 

Y 

VECTOR IN A.U. 

I 


03979 

G 

90014 

00744 

Z 


I 


03980 

Q 

90015 

00765 

MCILLWAIN L PARAMETER 

(C.U.L. ) 

I 


03981 

0 

90016 

00766 

B,MAG. FIELD STRENGTH 

(GAUSS) 

I 


03962 

Q 

90017 

00770 

REAL FIELD RT. AS. 

(DEGREES) 

I 


03983 

0 

90018 

OC771 

REAL FIELD DECL. 

(DEGREES) 

I 


03984 

G 

90019 

00734 

PASS NUMBER 


l 


03985 

Q 

90020 

00733 

TYPE OF DATA ITEM INDICATOR 

I 


03966 

G 

90021 

00748 

PER CENT CF ORBIT IN SUN 

CR 999 

10 


0398 7 

G 

90022 

00749 

YEAR OF LAST DATA ITtK STOREO IN RECORD 

10 


03988 

Q 

9002 3 

00937 

TYPE OF DATA I NO. FOR SPECIAL OATA ITEM 

1 


03989 

Q 

90024 

00089 

9 99* Sun per ct.if no asc 

.NOOE IN RECORD 

I 


03990 

Q 

9002 5 

00090 

NC.CF WORCS IN CRB3 DATA 

RECORD 

I 


03991 

Q 

90026 

00091 

NC.CF DATA WORCS IN 0R83 

DATA RECURD 

I 


03992 

Q 

9002 7 

00093 

NC.CF WORDS PER DATA ITEM 

I 


03993 

Q 

90028 

00095 

( WORDS/I TEM) ( I TFMS/RECORO -1) 

I 


0 399s 

Q 

90029 

00925 

RECORD STORAGE CNTR. 


10 


03995 

Q 

90030 

00151 

YEAR OF REF. 


I 


03996 

Q 

90031 

0015Z 

0 A YS JAN. 1- DAY CF REF. 


I 


0399 7 

0 

90032 

05600 

FIRST LOC. OF DATA RECORD STG. 

e 


03998 

Q 

90033 

05601 

W CRD 1 CF DATA RECORD 

(TYPE INC.) 

0 


03999 

Q 

90034 

05602 

WORD 2 

(DATE) 

0 


04000 

Q 

90035 

05603 

WORD 3 

(DAY CT. ) 

u 


04001 

Q 

90036 

05604 

WORD 4 

(SEC.CF DAY) 

0 


04002 

G 

90037 

05605 

WORD 5 

(X) 

0 


04C03 

Q 

90038 

05606 

WORD 6 

( Y) 

0 


04004 

G 

90039 

0 5607 

WORD 7 

(2) 

0 


04005 

Q 

90040 

05608 

WORD 6 

(X DOT) 

0 


04006 

0 

90041 

05609 

WCRD 9 

IV DOT) 

0 


04007 

Q 

90042 

05610 

WCRC 10 

(2 DOT) 

0 


04008 

G 

9004 3 

05611 

WORD 11 

(LONG. ) 

0 


04009 

Q 

90044 

05612 

WORD 12 

< GEODFTIC LAT.) 

0 


04010 

Q 

90045 

05613 

WORD 13 

(HT. ) 

0 


04011 

0 

90046 

05614 

WORD 14 

(SX) 

0 


04012 

G 

9004 7 

05615 

WORD 15 

(SY) 

0 


04013 

G 

90048 

05616 

WORD 16 

(SZ) 

0 


04014 

Q 

90049 

05617 

WCRC 17 

(L) 

0 


04015 

G 

90050 

05618 

WORO 18 

(B) 

0 


04016 

Q 

90051 

05619 

WCRD 19 

(REAL F.R) .AS. ) 

0 


04017 

G 

90052 

05620 

WCRD 20 

(REAL F.OECL. ) 

0 


04018 

G 

9005 3 

05621 

WORD 21 

(PASS NC.) 

0 


04019 

Q 

90054 

01701 

DATE FUNCTION 


F 


04020 

Q 

90055 

01001 

U AY COUNT FUNCTION 


F 


04021 

G 

90056 

03821 

FORTRAN RECORD FORMAT F. 


F 


0402? 

B 

00001 


STORE AND WRITE CRB3 OATA RECORD 


B 00001 

04023 

V 

00005 

♦00000000+00 

{STORES CRB3 DATA ITEM. 

IF IT FILLS RECORD 


04024 

V 

00006 

♦ lOOCOOOO + O 3 

0RB3 DATA RECORD IS WRI 

T TEN ON TC. 14 LOC 


04025 

R 

00007 

90030 

ykef 




04026 


K * C393C 


PAGE 054 


B-54 



,-.'V «T»lr (j.Jtjj*" 


K - C3S3C 


PAGO 055 


A 

00000 

90031 

900 0 l 

DAYS J AN . 1 -DAT E 

U4027 

F 

00009 

90054 

00007 

J.D. TO YR , MO * C AY 

04028 

R 

90022 

00009 


STORE CUT YEAR OF DATA 

04029 

F 

00012 

90055 

COCOS 

DAY COUNT OF YEAR 

04030 

M 

000 1 J 

00009 

00006 


04031 

A 

00013 

0001 3 

00C10 


04032 

M 

00013 

00013 

00006 


04033 

A 

00013 

0 CO 1 3 

OCCll 

YYMMDD 

04034 

H 

90033 

90029 

90020 

STORE NEXT DATA ITEM 

04036 

H 

90034 

9C029 

0CO13 

IN RECORD 

04036 

H 

90035 

90029 

00012 


04037 

H 

90036 

90029 

90002 


04010 

H 

90037 

90029 

900C3 


04039 

H 

0 3 B 

90029 

90004 


04040 

H 

90039 

90029 

90005 


04 041 

H 

90040 

9C029 

90006 


04042 

H 

90041 

90029 

90007 


0404 3 

H 

9C042 

90029 

90008 


04044 

H 

90043 

90029 

90009 


04045 

H 

90044 

9C029 

9C010 


04046 

H 

90045 

90029 

9001 1 


0404 7 

H 

90046 

90029 

90012 


04048 

H 

90047 

90029 

90013 


04049 

H 

90048 

90029 

90C14 


04050 

H 

90049 

90029 

90015 


04051 

H 

90050 

90029 

90016 


04052 

H 

90051 

90029 

90017 


04053 

H 

90052 

90029 

90018 


04054 

H 

90053 

90029 

90019 


04055 

A 

90029 

90029 

90027 

STORAGE CNTR.* WCRDS/ITEM 

04056 

C 

90028 

90029 

00002 

ARE ALL ITEMS STORED (EXCEPT SPECIAL ITEM) 04057 

H 

90033 

90029 

90023 

YES. STORE TYPE IND.AS WC.l OF SP.ITEM 

04058 

H 

90034 

90029 

90022 

WO. 2= YEAR OF LAST DATA ITEM STORED 

04059 

H 

90035 

90029 

90021 

WD.i=PER CENT CF CRB I T IN SUN OR 999 

04060 

F 

90032 

90056 

90026 

FORMAT DATA FCR FORTRAN RECORD 

04061 

P 

90032 

9C025 

TCB 

WR 1 TE DATA RECCRC 

04062 

R 

90021 

90026 


SET PER CENT OF ORBIT IN SUN=999 

04063 

R 

E 

90029 

00002 

00005 


RECORD STORAGE CNTR.-O 

04064 

04065 

04066 

K 

K 

* B 

E 

00000 

04000 

00001 

00002 



(AREA RESERVED FOR SWITCH TAPE ASSIGNMENT 
FUNCTION OR E0U1VALENT, IF NEEDED) 

04067 

04068 

04069 

04070 

8 00001 04071 

04072 


04073 


K 00000 - - - 

K 05960 

INITIALIZE 
Q 90001 06200 
Q 90002 06201 
0 90003 06203 
Q 9000 A 06205 
U 90005 06206 
Q 90006 06208 
Q 90007 06209 
Q 90006 06226 
Q 90009 00180 
Q 90010 00181 
Q 90011 00176 
0 90012 OC177 
U 90013 06080 
(j 90014 06020 
U 90015 06108 
Q 90016 06106 
Q 90017 01401 
U 90010 01421 
U 90019 00087 
Q 90020 0C08J 
Q 90021 00084 
4 90022 00063 
Q 90023 00009 
U 90024 0C000 
0 00014 00816 


PROGRAM P FCR ORBITAL TAPE FORM A T- 1 

FIRST CF 350 LCCS.INTQ WHICH TO LOAD RECOR 
SECOND WORD OF LOADED RECORD (SAT, NO, I 
FOURTH WORD OF RECORD (START YYMMLD) 

SIXTH WORC OF RECORD (START SECONDS) 
SEVENTH WCRO OF RECORD (END YYMWCO) 

NINTH WORD OF RECORD (ENC SECONDS) 

TENTH WORC OF RECCRD (INTERVAL BET. ITEMS) 
27TH WORD OF RECCRD (YYMMCD OF REFERENCE) 
SATELLITE IUENT. NO. FROM RECORD 0 

YYMMDO OF REFERENCE FROM RECORr 0 

TIME (CUT) OF 3RC CATA ITEM ON TAPE 0 

TIME(CUT) OF 3RD FROM LAST ITEM ON TAPE 0 
LOCATION 80 OF PROGRAM P FUNCTION 0 

LOCATION 20 OF PROGRAM P FUNCTION 0 

LOCATION 108 CF PROGRAM P FUNCTION Q 

LOCATION 106 CF PROGRAM P FUNCTION 0 

REDUCED J. 0. -SEC • TO CUT (MODIFIED) F 

PACKED DATE (YYMMDD) TO J,D. F 

INTERVAL BETWEEN ITEMS CN TAPE (CUD 0 
TAPE CHECK INDICATOR I 

NO. OF TIMES TO TRY TO READ RECCRD I 

-l (USED TO BACKSPACE A RECORD) I 

EXIT IF UNABLE TC READ RECORD 
LOCATION ZERO 

SECONOS/C.U.T. I 


C596C 
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04074 

04075 
040 76 
04G77 

04078 

04079 
04000 

04081 

04082 

04083 

04084 

04085 

04086 

04087 

04088 

04089 

04090 

04091 
0409? 
04093 
04U94 

04095 

04096 
0409 7 
0409b 

04099 

04100 

04101 

04102 


i 
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B 

00001 


V 

00005 

♦00000000*00 

V 

00006 

-10000000*01 

V 

0000 7 

♦10000000*01 

V 

00008 

♦35000000*03 

w 

00009 

ORB 1 

p 

00000 

00006 TEB 

R 

00015 

00005 

a 

00016 


L 

9000 1 

00008 TEB 

C 

90026 

90020 00017 00017 

A 

00015 

00015 00007 

C 

00015 

90021 9CC23 

L 

ooooo 

90022 TEB 

E 

00016 


B 

00017 


C 

90001 

00009 00010 00010 

R 

90009 

900C2 

ft 

90010 

90008 

F 

0001 1 

90018 90C03 

A 

00013 

90007 <*0007 

A 

00012 

00013 90006 

F 

90011 

90017 00011 

F 

00011 

90018 90C05 

S 

00012 

90006 00C13 

F 

90012 

90017 00011 

D 

90019 

90007 00016 

I 

90013 

♦99999999*08 

I 

90016 

♦99999999*08 

R 

90015 

90016 

H 

00001 

00006 00005 

E 

00002 


B 

00010 


H 

00001 

00006 00C07 

E 

00002 


K 

OOOOO 

— _ _ _ _ 

K 

06000 

F 166 - PRC 

Q 

90001 

06200 

0 

90002 

06201 

0 

90003 

06202 

ti 

90006 

06203 

Q 

:3005 

06205 

Q 

90006 

06206 

Q 

90007 

06207 

0 

90008 

06208 

Q 

90009 

06209 

Q 

90010 

06210 

0 

90011 

00176 

0 

90012 

00177 

Q 

9001* 

01601 

0 

90016 

01621 

0 

90015 

06161 

Q 

90016 

00628 

Q 

90017 

00190 

0 

90018 

OC 191 

0 

90020 

00083 

Q 

90021 

00086 

Q 

90022 

00063 

0 

90023 

00009 

Q 

90026 

OCOOO 

Q 

00015 

00822 

Q 

00016 

00859 

B 

0000 l 


V 

00005 

♦00000000*00 

V 

00006 

♦10000000*01 

V 

0000 7 

♦60000000 ,01 

V 

00008 

♦70000000*01 

V 

00009 

* 100UOCOO*02 

V 

00010 

♦69000000*02 

V 

00011 

♦50000000*02 

V 

00013 

♦35000000*03 

V 

00016 

♦99999999*08 

V 

00012 

-20000000*01 

G 

00090 

00001 00003 


INITIALIZE PROGRAM P FOR CR8ITAI TAPE-l 
REMINDS ORB I * AL TAPE.L3A0S TITLE RECORO, 
CHECKS FIRST WORD. IF IT-0RB1, COMPUTES ♦ 
STORES OUTPUT CU ANT I T I ES , AND EXITS WITH 
<X)»C.IF FIRST WCRO IS NCT-ORB 1 , EX I T S WIT 
( X ) * l .USES 17 LOC$. f * 350 LUCS. FOR RECORD 
REWIND T A D E 


LOAO TITLE RECCRC 
DID TAPE CHECK OCCUR 
YES. ADD TO NC. CF READ ATTEMPTS 
HAVE ENOUGH ATTEMPTS BEEN MADE 
NO. BACKSPACE AND 
TRY AGAIN TO RE AO RECORD 


B 00001 


RECORC HAS BEE 
IS FIRST WORD 
SAT. 10. NO. F 
YYMMCC CF REFfc 
J.O. CF FIRST 
2 (DELTA T) 
SEC. OF THIRD 
TIME CF THIRD 
J.D. CF LAST v 
SEC. CF THIRD 
TIME CF THIRD 
OELTA T (INTER 
SET •PREVIOUS 
SET •TIME OF F 
SET PRCG.P IN 
STORE C IN X 
GOOD tJ t r 


N READ SUCCESSFULLY 
CF RECORD - ORB 1 
ROM RECORD 
RENCE f ROM RECORC 
DATA ON TAPE 

CA t A ITEM ON TAPE 

LATA fTEM IN CUT 

ATA ON TAPE 

FROM LAST DATA ITEM UN TAPE 

FRCM LAST ITEM IN CUT 

VAL BETWEEN DATA ITEMS! IN C 

GOCC TIME* IN PRCG. P 

IRST ITEM IN S T G . • IN PRCG.P 

INITIAL FORWARD SEARCH MCDE 


FItf ST WORD OF RECORD IS NOT ORB I 
SfORE I IN X 
1 RPCR EXIT 


l OR 0RBI t AL TAPE FORMAT 1 
* ' ST Or 350 LCCS.INTG WHICH TC LGA" 

JO WGRO OF LOADED RECCED (CAY CT.? 
> ^ IRD WORD OF RECCRO * SECONDS CF F i H 5 ^ 
FC ‘JRTH WORD OF RECORD (INTERVAL BET. ^ 
$ 4 xiH WORD CF RECORD (X IN KM 
SkVLNTH WORD OF RECORD (Y IN KM 
E^r.T^ WORD OF RECORD (Z IN KM 
hi HtA WOPS OF RECORD (X OUT (ft 
RECORD 
CF RECORD 
*RC DATA 


(X OUT 
(Y DU 

t l D 7 ’ 

I T c M . 


TENTH >oro of 
ELEVEN f u WORD 
TIME CCUS) CF 

T iric ( CUT > OF HRU** LAST I 

REDUCED J.D. -SEC » TC CL» t MOD • F < : 0 1 

PACKED DATE (YYMMCO) U} J.O. 

BACKWARD DIFFERENCE INTER PCl a* 4 If N 

ERROR INDICATOR 

T ( N ) » T I ME CF ITEM FOR WHICH Uj INTERP. 
T ( 0 ) * T I ME OF 6TH ITEM IN INTfc’RP. TABLE 
TAPE CHECK INDICATOR 
NO. OF TIMES TC TRY TO READ RECCRC 
-1 (UStD TO BACKSPACE A RECORD! 

EXIT IF UNABLE TT READ RECORD 

LOCAT’CN ZERO 

KM/C.U.L. 

( KM/C.U.L . I (C.U.T./SEC ‘ 


« L) 

SEC) 

l 

APE 


I 


PROGRAM P FOR ORBITAL TAPE FORMAT-1 
ENTER WITH (Z)-TIME IN CUT AT WhICH CUTPU 
IS DESIRED. IF TIME FOUND. EXIT WITH PCSITI 
VECTOR (CUU IN X f X4l,X*2, WITH VELOCITY 
VECTOR (CUl/CLT) IN X*3 t X*6 # X*5 AND WITH 
( 9001 6 ! *0 • I F TIME IS EARLIER THAN 3RD TIM 
CN TAPE.EXIT WITH 99999999 IN X...X+5 AND 
(90016)— 1. IF FIME IS LATER IF AN 3RD FRO 
LAST TIME ON TAPE, EXIT WITH 9»S IN X...X* 
AND (900161-1 .USES 136 LOC,* 350 FOR RtCQ 
USE FOR TAPE BACKSPACE (NEW COMPILER ONLY) 
GET RE CUE ST TIME 


B 00016 


B 0001 7 


B 00010 


6 OOOU1 


C6C0C 
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06103 

36106 

06105 

06106 
06107 
06100 

06109 

06110 
06111 
06112 
06113 
06116 

06115 

06116 

06117 

06118 

06119 

06120 
06121 
0612? 
06123 
06126 

06125 

06126 
06127 
06> 2 8 

06129 

06130 
061 31 

06132 

06133 
06136 

06135 

06136 

06137 


06136 

06139 

06160 

06161 

06162 

06163 

06166 

06165 

06166 

06167 

06168 

06169 
U6150 

06151 

06152 

06153 
06156 

06155 

06156 

06157 

06158 

06159 
0616C 
06161 
06 16? 
06163 
06166 

06165 

06166 

06167 

06168 
06 1 69 
061 70 
061/1 
06172 
06 i 73 
06 1 76 
06175 
061/6 
06177 

06170 


B-56 



K « 


06COC 


PA Ot 057 



c 

J0090 

00060 

00105 001C5 

IS IT * PREVIOUS GOOD TIME 





04 1 79 


e 

00116 



YFS. HOLD OUT PREVIOUS GOOD VECTOR 





041 BO 

• 

8 

00105 






H 

00105 

QMSi 


C 

90011 

00090 

00U4 

IS REC. TIRE *0R LATER THAN THIRC TIME 

CN T 



0** 182 


c 

00090 

90012 

CO 126 

IS !T«OR BEFORE THIRO FHOM LAST TIME 




04 1 d 3 


E 

00108 



YES. TIME IS ON TAPE. GO TO B0C1G6 

OR 

flOOl 



04 184 

• 

B 

00106 



CONTINUE IN INITIAL FORWARD SEARCH 

MODE 

B 

00106 

04186 


R 

00130 

00005 







04166 

• 

B 

00131 






L 

0013 1 

04167 


L 

90001 

00013 

TEB 

ICAO A RECORD FRCM TAPE 





041BP 


C 

90024 

90020 

00132 0013? 

DID TAPE CHECK OCCUR 





04169 


A 

00130 

00130 

00006 

YES. ADD TO NO. OF READ A T TEMPT 5 





04190 


C 

00130 

90021 

90023 

HAVE ENOUGH ATTEMPTS BCFN MADE 





04191 


L 

00000 

90022 

TEB 

NO. BACKSPACE AND 





04 l' J 2 


E 

00131 



TRY AGAIN TO READ RECORO 





04193 

• 

B 

00132 



RECORD HAS BEE READ SUCCESSFULLY 



B 

00132 

04194 


F 

00091 

90014 

90C01 

J.D. OF FIRST DATA IN KfcCCRU 





04195 


R 

00092 

9C003 


SECONDS OF FIRST CATA 





04196 


F 

00093 

90013 

00091 

TIME CF FIRST CATA IN C.U.T. 





04197 


M 

00092 

90004 

00010 






04198 


A 

00092 

00092 

90C03 

SECONDS OF LAST DATA IN RECORD 





04199 


F 

00094 

90013 

00091 

TIME OF LAST DATA IN C.U.T. 





04200 


C 

00090 

00093 

00113 

IS REG. TIHE-OR BEFORE FIRST TIME 





04201 


E 

00127 



YES. CONSIDER IT IN THIS RECORC 





0420? 

• 

B 

00113 



REQ. TIME IS LATER THAN FIRST TIME 



B 

00113 

04203 


C 

00090 

o 

o 

o 

00112 

IS REC.TIME-OR BEFORE LAST TIME CF 

RECORD 



04204 

• 

B 

00127 



YES. REQ. TIME IS IN THIS IECCRC 



B 

00127 

GW05 


R 

00106 

OC107 


LEAVE INITIAL FORWARD SEARCH MCCE 





04206 


C 

00020 

00074 

coin ooin 

IS THIS FIRST RECORD ON TAPE 





04207 


I 

00096 

- 10000000 + 02 

Vts. SET TC GET INTO STG. THE FIRST 6 




04208 


R 

00097 

00007 


VECTCRS FROM PECCRC, AND THEIR TIMES 




04209 

• 

B 

CO 109 






B 

001G9 

04210 


R 

00095 

00005 







04211 


R 

00121 

00107 







04212 

• 

B 

00110 






R 

00110 

04213 


A 

00096 

0C096 

00C09 






04214 


M 

00092 

00095 

90C04 






042 1 4 


A 

U0092 

00092 

9000 3 






04216 


F 

00093 

90013 

00091 






04217 


H 

00020 

00096 

00C93 






04216 


H 

00094 

00095 

0000 • 






04219 


G 

00100 

90005 

00094 






04220 


H 

00021 

00096 

00100 






042^1 


c 

00100 

90006 

00094 






0422? 


H 

00022 

00096 

00100 






0422 3 


G 

00100 

90007 

00094 






04224 


H 

0002 3 

00096 

00100 






04225 


G 

00100 

9C008 

00C94 






04226 


H 

00024 

00096 

001C0 






0422 7 


G 

00100 

90009 

00094 






0422 H 


H 

000.5 

00096 

0010C 






042 ?9 


G 

00100 

90010 

00094 






04230 


H 

00026 

00096 

00100 






04231 


A 

00095 

00095 

00006 

ICNTR. OF VECTCRS MOVED I +1 





04232 


C 

00097 

00095 

00110 






04233 


R 

00098 

00005 







04234 


R 

00099 

00008 







04235 


E 

00121 



GO TO B00106 OR B00107 





04236 

• 

B 

00111 



THIS IS NOT FI9ST RECORD CN TAPE 



B 

001 11 

04237 


I 

00096 

♦20000000+02 

SET TC STORE FIRST 3 VECTCRS FRCM 





042 38 


1 

00097 

♦30000000+01 

RECORD ♦ THEIR TIMES AS 4-TH* 





04239 


E 

00109 



5-TH, AND 6-TH ITEMS IN STG. 





04240 

• 

B 

00112 



REQ. TIME IS NCT IN THIS RECORC 



B 

oni 12 

04241 


I 

00095 

♦47000000+02 

SET TO STORE LAST 3 VECTCRS FROM 





04242 


I 

00096 

- 10000000 + 02 

RECORD AKC THEIR TIMES AS 1-ST, 





04243 


R 

00097 

0C011 


2-ND, ANC 3-RC ITcMS IN STG.* 





04244 


R 

00121 

00106 


anc then load another recoro 





04245 


E 

00110 








04246 

• 

B 

00107 



SIX TIMES AND VECTCRS ARE IN STG. 



B 

00107 

04247 


C 

00090 

00040 

00114 00120 






04248 


R 

r 008 O 

00040 


REQ. TIME* THIRD TIME IN STG. 





04249 


0 

00081 

0004 1 

00C15 

CONVERT THIRO POSITION VECTOR 





04250 


0 

00082 

00042 

00015 

IN STG. TC C.L.L. 





04251 


K • C6CCC PAGE 05/ 
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D 

00083 

00043 

00015 



04252 

D 

00084 

00044 

00016 

CONVERT THIRD VELOCITY VECTOR 


04253 

0 

00085 

00045 

00016 

IN STG. TU C.L.L./C.U.T. 


04254 

D 

00086 

0C046 

00016 



04255 

E 

00116 



HOLD OUT AS VECTORS A J REC. TIME 


04256 

• 8 

00114 



REQ. TIME EXCEEOS THIRD TIME IN STG. 

8 00114 

04257 

C 

00090 

UuG50 

00117 00115 



04258 

R 

00080 

0C050 


REG. TIME=FOURTH TIME IN STG. 


04259 

D 

00081 

00051 

00015 

CONVERT FOURTH POSITION VECTOR 


04260 

D 

0008.' 

00052 

00015 

IN STG. TO C.U.L. 


04261 

D 

00083 

00053 

00C15 



04262 

D 

00084 

00054 

00016 

CONVERT FOURTH VELOCITY VECTOR 


04263 

D 

00085 

00055 

00C16 

IN STG. TC C.U.L./C.U.T. 


04264 

0 

00086 

00056 

000) 6 



C 4265 

E 

00116 



HOLD CUT AS VECTORS AT REG- TIME 


04266 

* 9 

00117 



REO. TIME EXCEEDS TIME OF 4-TH ITEM 

B 00117 

04261 

A 

00095 

00095 

00090 

IN 5 TG. * SO NEEO NEW (LATER ) 6-TH ITEM 


04268 

C 

00011 

00095 

00118 

HAS END OF RECORD BEEN REACHED 


04269 

R 

00130 

00005 




042 70 

* 8 

00133 




B 00133 

04271 

L 

90001 

0C013 

TE8 

LOAD a RECORD FROM TAPE 


04272 

C 

9C024 

90020 

00134 00134 

DID TAPE CHECK OCCUR 


04273 

A 

00130 

00130 

00006 

YES. ADD TC NC. OF READ ATTEMPTS 


04274 

C 

00130 

9002 1 

90C23 

HAVE ENOUGH ATTEMPTS BEEN MADE 


04275 

L 

00000 

90022 

TEB 

NO. BACKSPACE AND 


04276 

e 

00133 



TRY AGAIN TO READ RECORD 


04277 

• 8 

00134 



RECORD HAS BEEN READ SUCCESSFULLY 

B 00134 

042 78 

F 

00091 

90014 

90001 

J.D. OF FIRST DATA ITEM IN RECORD 


04279 

S 

00095 

00095 

00011 



04280 

• B 

00118 



SET TO MOVE TIMES AND VECTORS 

B 00118 

04281 

I 

00096 

-50000000+02 

IN STG.* LEAVING SPACE FOR A 


04282 

• B 

00119 



NEW SIXTH ITEM 

B 00119 

04233 

A 

00096 

0C096 

00009 



04284 

G 

0010C 

00070 

00096 



04285 

H 

00060 

00096 

00100 



04286 

G 

00100 

00071 

00096 



04287 

H 

00061 

00096 

001C0 



04288 

G 

00100 

00072 

00096 



04289 

H 

00062 

00096 

00100 



04290 

G 

00100 

00073 

00C96 



0429) 

H 

00063 

00096 

00100 



04292 

G 

00100 

00074 

00096 



04293 

H 

00064 

OC096 

00100 



04294 

G 

00100 

00075 

00096 



04295 

H 

00065 

00096 

00100 



04296 

G 

00100 

00076 

OOC96 



04297 

H 

00066 

0C096 

00100 



04298 

C 

00005 

00096 

00119 



04299 

M 

00094 

00095 

00007 



04300 

G 

00071 

*■ 3005 

00094 

MCVE NEW (LATER) ITEM 


04301 

G 

00072 

90006 

00094 

INTO SIXTH ITEM STG. 


04302 

G 

00073 

90007 

00094 



04303 

G 

00074 

90008 

00094 



04304 

G 

00075 

9 jOG9 

00094 



04305 

G 

00076 

9C010 

0CC94 



04306 

M 

00092 

90004 

00C95 



04307 

A 

00092 

00092 

90003 



04308 

F 

00070 

90013 

00091 

TIME OF NEW ITEM IN C.U.T. 


043C9 

R 

00098 

00005 


SET COUNTER ADJUSTERS TO INDICATE 


04310 

R 

00099 

00008 


THAT LAST MOVE WAS FORWARD 


04311 

A 

00095 

00095 

0000'; 



04312 

E 

00107 





04313 

• B 

00120 



REO. TIME IS EARLIER THAN TIME OF 3-RD ITE 

B 00120 

04314 

S 

00095 

00095 

00099 

IN STG., SO NEED NEW (EARLIER) i-ST ITEM 


04315 

c 

00005 

00095 

00128 

IS COUNTER NEGATIVE 


C4316 

E 

00129 



NC. I TEM IS IN THIS RECORC 


0431 7 

• B 

00128 



YES. BACKSPACE AND LOAD PREVIOUS RECORD 

B 00128 

04318 

L 

90001 

00012 

TEB 



04319 

R 

00130 

00005 




04320 

• B 

00135 




B 00136 

04321 

L 

90001 

00013 

TEB 

LOAD A RECORD FPCM TAPE 


04322 

C 

90024 

90020 

00136 00136 

DID TAPE CHECK OCCUR 


04323 

A 

00130 

OCI JO 

00006 

YES. ADD TO NC. OF READ ATTEMPTS 


04324 

C 

00130 

90021 

90023 

HAVE ENOUGH ATTEMPTS BEEN MADE 


04325 

L 

00000 

90022 

TEB 

NO. BACKSPACE AND 


04326 
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E 0C ' 3*- 


TRY AGAIN TO READ RECORD 


0*327 


* B 00136 

F 00091 9001* 5,001 
A 00095 00095 00011 

* B 00129 

1 00096 ♦50000000+02 

* B 00123 

S 00096 00096 00C09 
G 00100 00020 00096 
H 00030 00096 00100 
G 00100 00021 00096 
H 00031 00096 00100 
G 00100 00022 00096 
H 00032 00096 00100 
U 00100 00023 00096 
H 00033 00096 00100 
G 00100 0002* 00096 
H 0003* 00096 00100 
G 00100 00025 00096 
H 00035 00096 00100 
G 00100 00026 00096 
H 00036 00096 00100 
C 00096 00005 00123 
M 0009* 0C095 00C07 
G 00021 90005 0009* 

G 00022 90006 0009* 

G 00023 90007 0009* 

G 0002* 90008 0009* 

G 00025 900C9 0009* 

G 00026 90010 0009* 

M 00092 9000* 00095 
A 00092 00092 90003 
F 00020 90013 00091 
R 00096 00008 
R 00099 00005 
S 00095 00095 C0C06 
E 0C107 


RECORD HAS BEEN READ SUCCESSFULLY 
J.D. OF FIRST DATA ITEM IN RECORD 


SET TO MOVE TIMES AND VECTORS 
IN STG., LEAVING SPACE FCR A 
NEW FIRST ITEM 


MOVE NEW (EARLIER) ITEM 
INTO FIRST ITEM STG. 


TIME OF NEW ITEM IN C.U.T. 

SET COUNTER ADJUSTERS TO INDICATE 
THAT LAST MOVE WAS BACKWARD 


B 00) 36 0*328 

0*329 
0*330 

B 00129 0*331 

0*332 

B 00123 0*333 

0*33* 
0*335 
0*336 
0*337 
0*3 3 8 
0*339 
0*3*0 
0*3* L 
0*3*2 
0*3*3 
0*3** 
0*3*5 
0*3*6 
0*3*7 
U* 3*8 
0*3*9 
0*350 
0*351 
0*352 
0*353 
0*35* 
0*355 
0*356 
0*35 / 
0*358 
0*359 
0*360 
0*361 
0*362 
0*363 


• 3 00115 

R 00080 OC090 
R 90017 0C09Q 
R 90018 00070 
F 00081 90015 00071 
F 00082 90015 00072 
F 00083 90015 00073 
F 0008* 90015 0007* 
F 00085 90015 00C75 
F 00086 90015 00076 
0 00081 00081 00015 
D 00082 00082 00015 
0 00083 00083 00C15 
D 0008* 0008* 00016 
0 00085 00085 00016 
D 00086 00086 00016 

• 8 00116 

H 00001 0000* 00081 
H 00002 0000* 00082 
H 00003 0000* 00083 
H 0000* 0000* 0008* 
H 00005 0000* 00085 
M 00006 0000* 00086 
R 90016 00005 
E 00002 


B 00115 0*36* 

0*365 
0*366 
0*367 
0*368 
0*369 
0*370 
0*3/1 
0*3/2 
0*373 


CONVERT OUTPUT POSITION 0*374 

VECTOR TO C.U.L. 0*375 

0*376 

CONVERT OUTPUT VELOCITY 0*377 

VECTOR TO C.U.L. /C.U.T. 0*378 

0*379 

B 00116 0*380 

HOLD CUT VECTORS (IN CANONICAL 0*3til 

UNITS) AT REQUEST TIME 0*382 

0*383 

0*38* 

0*385 

0*386 

SET EXIT CHECK * 0 0*387 

GOOD EXIT 0*388 


REQ. TIME IS BETWEEN THIRD AND 
FOURTH TIMES IN STG. 

STORE REQ. TIME FOR I NTERPOL AT I CN FUNCTION 
STORE 6TH TIME IN STG. FOR INTERP - FUNCT I ON 
INTERPOLATE FCR VECTOR 
AT REQ. TIME 


• B 0012* 

R 90016 00012 

• B 00125 

H 00001 0000* 0001* 
H 00002 0000* 0001* 
H 00003 0000* 0001* 
H 0000* 0000* OOCi* 
H 00005 OCOO* OOCI* 
H 00006 0000* 0001* 
E 00002 


REQ. TIME IS TCC EARLY FOR TAPE B 0012* 0*389 

SET EXIT CHECK = -1 0*39C 

HOLD CUT 9 * S » 00125 0*391 

0*39? 

0*393 

0*394 

0*396 

0*396 

0*397 

0 * 39 ^ 


* B 00126 

R 90016 00006 
E 00125 


REQ. TIME IS TCO LATE FOR TAPt B 00l2o 0*399 

SET EXIT CHECK » 1 0**00 

0**01 
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K 
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K 00000 - - ------------------- 0«*02 

K 06140 C4403 

F 120 - BACKWARD DIFFERENCE I NTERPOL AT I CN 04404 

g 00013 000B7 INTERVAL BET. TIRES IN I NTERP - TAeL E ( CUT ) I 04406 

Q 00024 00190 TlN),TIME OF ITER FOR WHICH TC INTERP. I 04406 

Q 00025 00191 T ( 0 ) * T I ME OF 6 TH ITEM IN INTERP . T ABLE I 04407 

• B 00001 BACKWARD DIFFERENCE I NT ERPOL AT ICN B 00001 04408 

I 00015 -10000000*01 04409 

A 00019 00003 00012 04410 

• B 00005 B 00006 04411 

A 00015 00015 00011 044L2 

S 00019 00019 00012 04413 

G 00020 00001 00019 04414 

H 00035 0C015 00020 04415 

C 00014 0C015 00005 04416 

I 00018 -10000000*01 04417 

A 00033 00014 00018 U4418 

• B 00006 B 00006 04419 

A 00018 00018 00011 04420 

R 00017 00018 04421 

G 00021 00035 00017 04422 

• B 00007 B 00007 04423 

A 00017 00017 00011 04424 

G 00022 00035 00017 04425 

S 00023 00021 00022 04426 

D 00023 00023 00013 04427 

R 00021 00022 04428 

H 00035 00017 00023 04429 

C 00014 00017 00007 04430 

C 00033 00018 00006 04431 

S 00026 00024 00025 04432 

5 00027 00026 00013 04433 

R 00028 00011 04434 

R 00029 00011 05435 

R 00016 00010 04436 

R 00032 00010 04437 

• B 00008 B 00008 04438 

A 00016 00016 00011 04439 

M 00029 00029 00016 04440 

A 00027 00027 00C13 04441 

M 00028 00028 00027 04442 

G 00023 00035 00016 04443 

0 00030 00028 00029 04444 

M 00031 00030 00023 04445 

A 00032 00032 00031 04446 

C 00014 00016 00008 04447 

A 00032 OL 32 00035 04448 

H 00001 00004 00032 04449 

6 00002 04450 

V 00010 *00000000*00 04451 

V 00011 *10000000*01 04452 

V 00012 *10000000*02 04453 

V 00014 *50000000*01 ** 04454 

04455 

04456 

04457 

t G 0 TC CARD READER 04458 

04459 

04460 

30 00001 04461 

04462 


K * 


0614C 


B-60 


PAGE 


060 


7 77765" *2STARTC0 


4,00 t • • • i • t = = = = oqo9 7313 3636® *67-77* 1*»**'7 7 
+ flRV 6UPR ( IM'/Ar> ) 

* C AROS n ' ? W 

* L I ? T 

c flll^ surr 

c INVAR SURR MPOIFIFfJ ( ! *i» I Nt. MAGNF I ) (SEPT 13 . 62) 

SUBROUTINE BItM ( ELAT, FLPuG, ALT, ERR, dT, dP , 3R • »d, FL, 

I ELINT, R®PZ ) 

D I MENS I ®N V( 3,3 ) ,B ( 200 ) , ARC ( 200 ) »VN< 3) *VP( 3) , BEG ( 20 0) , BEND ( 200) * 
1 RL®G ( ? f '0 ) , F C P ( 2 ■ ) 0 )*R1(3),R2(3),R3(3) 

V(1 ,2)=ALT/6771 ,2 
V ( 2 » 2 ) = ( 9o ,-EL A T ) / 5 7, 2967 709 
V(3»2)=FL®NG/57. 2957795 
ARC M ) = 0 , 

4RF ( 2 ) = ( ] . A +V (1,2) )*FGRTF ( FRR )*0,3 
OCLT=1.5708-C.2007*C®SF( V( 3,2 )+l,239) 

IF(V(2,2)-nCLT)10,10,ll 
U APC : 2 ) = -A°C ( 2 ) ^ 

10 CALL START ( Rl, -?2, R3, BR, BT, BP, B, ARC, ERR, V ) 

ap=_pp 

HR 12 1=1 ,3 
VP( T ) = V ( 1,2) 

12 VN( I )=V( ’,7) 

CALL L I NFS (Rl ,R2,R3 ,B,aRC,FRR,J,VP,VN) 

I F ( J-209 ) 1 6 , 1 7, 1 7 
17 FL=-1,0 
C-* T P 13 
16 JUP=J 

AO J=1 , jnp 
A°C( J)=AP6F(ARC*J) ) 

AO RL®G(J)=LPGF(R< J1 1 
JFP = J!!P-1 
0 ® 21 J =2 , JFP 
AGUMsARC ( J ) +ARC ( J+ l ) 
nX=RLPG( J-l J-RL®G( J) 
nN = ASI)“'*ARC ( J )*APC ( J + ] ) 

“CP = ( ( RLC-'GI J-l )-RL 0 G( J+l 1 ) *ARC ( J ) ** 2 -OX* ASUM **2 ) /ON 
CC® = (OX* ARC (J+l ) - ( BLOG ( J ) - 3 L®G (J+l ) ) * A P C ( J ) ) /ON 
r A = . 76 * ARE ( J ) 
r C = c A + » 25#ASI *M 
r>C®=RL®G( J-l J-CE® 

FC®(J)=RC® +CC® +;SA+SC) 

REG( J)=EXPF(nC®+rC3< J)*, 6 **ARC( J) ) 

21 3 EN 0 (J)=FXPE( 0 C®+EC®( J ) *. 5* < ASUM+ARC ( J) ) ) 

REC,( JUP)=RENO( JFP) 

RENO ( JUP) =R ( J"P ) 

FC® ( JUP ) = ( 2 . L / ARC ( JUP ) ) *L0GE ( BFNn ( JUP ) /BFG ( JUP ) ) 

CALL INTFG ( ARC , BEG . BE NO ,B , JFP , FC®, FL I NT ) 

27 CALL CARMFL ( B C 2 ) * FLINT, FL, B®BZ ) 

IP PPsP ( 2 ) 

PFT'IRN 

FNO 


INVAK001 
INVAR002 
INVAR0C3 
INVAROOA 
INVAR005 
INVARCC6 
INVAR007 
INVAR008 
INVAR009 
INVAR01 0 


INV4R012 
INVAR013 
INVARC14 
INVAR01 5 
INVARA15 
INVARB16 
'NVARC15 
INVAR016 
INVAR017 
INVAR018 
INVAR019 
INVAR020 
I NVAR02 1 
INVAR022 
1NVAR023 
INVAR02A 
INVAR025 
I NVAR026 
1NVAR027 
INVAR028 
INVAR029 
INVAR030 
INVAR031 
INVAR032 
INVAR033 
INVAR03A 
INVAR035 
INVAR036 
IRM01*00 
INVAR038 
INVARC39 
INVAROAO 


C-l 




* li wcc fiipp 

* CARDS RPW 

+ I 1ST 

* LAPFL 
r 529 

I.INFS supR 

SURR3UTINF L I N F S ( R 1 * R2 » R3 * P» ARC » FRR » J ♦ VP » V* ) 

DIMFNS I0N B C 200 ) .ARC i 200 ) *R1 ( 3 ) »R2 ( 3 ) »R3 ( 3 > »VN I 3 ) » VK ( 3 ) »RA ( 3 > 

roF=n. ?s 

IF (FRO -0.1 «i6? 5)74.75»7 C 5 
it, CRF= (FPR#*C. 333353533) 

75 A 7 = ART ( 7 ) 

A AP = AP SF ( A? ) 

<NA=A7/AAP 
A 1 = ARC ( ] ) 

A 2 = ARC ( ? ) 

AS'6 = A7*A7/6.0 
J=3 
I L R = 1 
I f = 1 

r.O T* R 7 

46 I c = 1 
J = J+l 

A«'6 = A7*A3/6.C 
ARf J=A 1 +A?+A? 

AD= ( ASMV+Al ) /AA 
nn = AFIPVPP 

cd=ai / cc 

■* 6 HP 5 1=1,3 

DD=P1 ( I ) / A A-P2 ( I ) /PD+R3 ( I ) /CC 
G» TP(6,P) .IF 

6 ° T =R 1 ( I )-( ad*pi ( I )- nn*P?( I >+rn*R7( i )-nn*AR'‘j)*ARCJ 
RA( I)=R1 ( I ) 
p l ( I ) = °2 ( I ) 

R? ( T )=P7( I ) 

R3 ( I ) =PT 
VP (I ) =VN ( I ) 

P RRAR=(R2( I )+R3( j ) )/2.-DD*AQ6 
5 '’N ( I )=VP( I )+A3*RPAR 
P7 IF(VM(2) >76.77,77 

76 VN(? >=-VN(2) 

77 IFIVNI 2)-3.141592653)7P,78,7R 

79 VNt?)=6,??niP5707-VN<2) 

r,« T® 77 

7 P I F ( VN (7)}P0,P1»81 

80 VN(3)=VN(3)+6. 283185307 
r,p TP 7fl 

81 IF(VN(3)-6. 283185307)82,82.83 
83 VN(3)=VN(3 >-6.283185307 

C,p TP 81 

P2 GP TP (9,10), IF 
9 S J T = ARSF ( S INF ( VN ( 2 ) ) ) 

PPFi = V N ( 1 ) 

PPF?=PRF1 *\/N( ? ) 
pOF7=pOFl *F I T*VN ' 3 ) 
c 50= F I T* c I T 

(TFR= (63 )6.R1 2+FFO*( 21 .3677 + . 1 08*66'') ) /6371.2 
AFRsVN ( 1 )-®FP 


LINE5000 
LINES001 
LINFS0C2 
LINFS003 
L INFS004 
L INF SO 05 
U I NFS006 
L I NF SO 07 
LINFS008 
LINFS009 
LINFS010 
LINFS011 
LINFF012 
LINFS013 
LINF6014 
LINFS015 
LINFS016 
LINFS017 
L INFS018 
L INFS019 
LINFS020 
LINFS021 
LINFS022 
LINFS023 
L I NFS024 
LINFS025 
L I NFS 02 6 
LINFS027 
LINFS028 
LINFS029 
LINFS030 
LINES031 
L INFS032 
UNFS0 33 

LINES034 
LINFS035 
LINFS036 
LINFS037 
LINFS038 
LINES039 
LINFSA39 
LINES040 
LINFS041 
LINFS042 
LINES043 
LINFS044 
LINFS045 
LINFS046 
L INFF047 
LINFS048 
LINES049 
LINFS050 




CALL VAGNFT (AFR,5IT *VN( 3 ) ♦ HR ♦ t3 T * BP ♦ P ( J ) # VN ( 2 ) ) 

"Ml )*pp/p(J) 

nN = P( J)*VN( 1 ) 

9M?)=9 T/ON 
^n)=op/(ON*MT) 

A c -l»M = A^ + A2 
AA=A^H M *A? 
nps4^#A? 
rr s A c ,i|M*A^ 

T C = “> 

G® T ^ ^6 

in c‘jTrA« r > r ( r T N r ( \/fl ( ? ) ) ) 

R ( J) =p ( J) * MPRF] / VN<1 n **3 ) 

QRT=.5*ARSF (R3( 1 ) )/(.l+AR5F(R3(2)*VN( 1) ) ) 

X= ( ARSF ( VN ( 1 )-PRFl ) +uRT * A RSF ( VN < 1 ) *VN ( 2 )-PRE2 ) +AB5F ( VN( 1 ) *5 I T *VN ( 3L I NF6065 


i 

1I-PRF.3) ) / ( AAB *KRR *SvJRTp ( l. + 3KT»JRT ) ) 

L I NFS066 

i 

Gfi TS ( 90 »93 * 90 ) * I LP 

LINFS067 


IF ( X-3.’ )O0*P0 »89 

L I NF 5068 

! 

A3=A3*9.2* < P.O+X )/(n.8+X) 

LINFS069 

i 

J = J-1 

L I NF 5070 

t 

ILP=’ 

L I N F c 0 7 1 

! 

a<i'm = a?+ai 

L I N F 5 0 7 2 

i 

AA = A c "*1*A1 

L I NF 507 3 

f 

np=4?* A 1 

L I NFS074 

; 

/-rsA9MV*A2 

LINF5C75 


r>« O] T = 1 ♦ 3 

LINFS076 


VN ( T ) =VP f I ) 

L I NF50 77 


?■» t T)=R2 ( T ) 

LINFS078 


R2 ( I) = R 1 (T ) 

LINFS079 

<n 

Q} ( T )=RA ( t ) 

LINF5080 


(*-® T<!> 73 

L I NF 508 1 

no 

!F{ j-?' s n)ft7,An,60 

LINFCQB2 

6^ 

A I = A 2 

LINF5083 


IF(Pt J)- Q (2I ) 49 » A 9 1 60 

L I NF 508 4 

40 

I!.P=? 

L I NF508 5 


> 

N> 

n 

> 

LINFS086 


A3 = A 3#. 2* ( e.+X ) / ( .8 + X ) 

L I NFS08 7 


AU=(2.-R3(2)*VN< 1 ) )*VN(I )*CRF 

LINFS088 


IF(A^fF(A3)-AM)RA»8A*72 

L I NFS08 9 

7? 

A‘» = c NA*A , a 

LINF5090 

r- h 

; f ( '\NA «R 3 1 J ( + . 5 J 8 5 »S »73 

LINES091 

*5 

AM = _.<j*s*iA#\/N ( 1 ) / p 3 ( I ) 

LINF5092 


IF ( A«fc{ A3 >-/*<«) 7‘>.73t8F, 

L I NFS09 3 

*6 

A-» = «-NA*AM 

LINFS094 

7R 

A Of ( J+ 1 ) = A3 

L I N F 5 0 9 5 


AA«=APFC( A3 ) 

L I NF5096 


<VS> T? 66 

L I NF509 7 

* n 

RFTi IRA) 

LINF5098 

1 

fnh 

L I NFS099 


LINFS051 
L 1 NF SO 52 
L I NF SO 53 
L INF5054 
LINFS055 
L I NF 50 56 
L I NF 50 5 7 
L INF505R 
LINF5059 
L I NR S 06 R 
L INF5061 
LINF506? 
L I NF 5063 
L INFS064 


■B- 

*■* 


,C 
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* 3TART OliqR 

* L ? «■ T 

* CARns R®w 

* I apfl 

AAH1 

r <- t » OT c ' ’np 

SUBO^UT I NF STAPT ( Rlt R?, R A * BRP, BBT, BBP* B* ARC ♦ FRR, V ) 
OIMFNSIi-JN RI200) »ARCI200 1 *V< 3*31 »R1 <31 .'<2< 3) *R3< 3) 
C|T;/\BCF|C|\r(l/(?,?| ) ) 

AFO = v< 1 ,? ) 

C?0= r I T * A I T 

®FR = <63S6.91?+SSQ*<2 1 .3677 + . 1 09»SSQ ) ) /6371 .2 
VII * ? ) = AFR+RTR 

10 I F ( V ( 3 * ? ) ) II *12*12 

11 V(3,?)=\/( 3.2 1+6. 293135707 
C,® T® io 

1? CALI VAGNFT ( AFRtSIT »V( 3i? ) ♦RR»HT*nP»B<2 1 »V( 2»2) > 
qoq = no 
BBT = P T 
ppp = ap 

p?n i =pp/o ( ? ) 

HMrP ( 0 )*V( ] ♦ ? ) 

R ? (? )=PT/n\ 

R?(3)=PP/(nN*r, IT 1 
Tc = o 

1 HP ? 1=1*3 

7 VI I ,1 )*V ( I ,2 1-ARC (2 )*R?( I) 

c tT = AR'F(e.iNr(V(?«l ) ) ) 

3 fco=sit*MT 

®FR= ( 6396, 012+5 50* (21. 36 77 + .1 OB *SSQ) 1/6371.2 
afp=V( 1 *1 )-®ro 

CALL VAGAIFTI AFR»3IT.V( 3,1 ) , PR ,RT ,BP ,0 < 1 1 , V I 2 . 1 1 1 
I F ( P C 1 )-°(?) 14*9,6 

4 ARC ( 2 ) s-APC I 2 I 
0,® T5> 1 

6 PI ( 1 1 sftR/P ( 1 1 
APC(3)sARC(?) 

PN=R« 1 >*V(1 .1 1 
°1 (2 )=«T/nN 

~ 01 (3) = np/(nN*3IT) 

P® 6 1=1,3 

A VI 1.1 )=V( I,2)-ARC(2)«(»1 ( I ) +R? (1)1/2. 

S l T« Ap SF ( e I Nr (V ( 7 * 1 ) 1 ) 
t c = ! c ,+ 1 

B® T® I 3 *7), IS 

7 n® 9 1=1,3 

8 VI I »3>=V( I *2 1 +ARC I 3 1 # ( ( 1 . 5 1 »R2 ( I 1 -. 5*Rl ( I 1 1 
OF TURN 

FNn 


ST AR TOO 1 
STARTOO? 
START003 
START 0 04 
START0C5 
STAR TO 06 
STARTA06 
STARTBC6 
STARTC06 
START0C7 


START008 
START0C9 
START010 
START01 1 
START012 
START013 
START014 
START015 
START016 
START017 
START018 
START019 
START020 
START021 
START022 
START023 
START 024 
STARTC25 
START026 
START027 
START028 
START029 
START030 
START031 
START032 
START033 
START034 
START035 
START036 
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ft 



* ‘'AT, NOT ^ t 'RP 

* L 1 r - T 

* gadof p«w 

* LAOFL 
C7 7?1 

r WAGMFT Sl'09 

SURR0UT I NF MAGNET I R »S»PH I ♦ RR * DT HFT »RPH I *BR »THFT I 
D IMF NS I©N DP (49) *P<49 ) ,G( 49 ) »H(49 ) ,C0NST (49) .Ae>R( 7) .SP( 7) .CP ( 7) 
IP ( pPN c F LIGHT 1 ) 151. 151 

1 50 ns> i 5 ? N= 1 *4° 

GIN) =0.0 
15? H(N)=O.0 

C JFNSFN AND CAIN C©FFFICIFNTS F0R 1960 (JUNF 1962) 

C G ( 1 ) = G(N»M) ANO MCI) = H(N.M) WHFRF I = N+7*(M-1) 

G ( ?)= 3."411 P'-'SOF-O] 

G ( i) = p.i 

G { •»)= 2»4 p 3 r,! 367!F-0? 

G( 1 '■')=-5. 125337 7IF-1? 

Gn7)*-l.”Pllof,0F-n? 

G ( 4)=-3.18]7R651F-0? 

Gill )= 6.21 '> nr '9^6E-0? 

G( 18 )=-?. 48^81 333E-C? 

GI25)=-6.49565905F-03 
G ( 5)=-4.1 7943639F-02 
G(12)=-4.5?9P?66OE-0? 

G(10)=-?,l7i47447r-i? 

G(?A)= 7.008?64GAF- a 7 
G ( 77 ) =-2.04 705862 F-07 
G ( 6 ) = 1 .6?8C6?71 F-i? 

GM7)=-7.44 067606F-0? 

G(?i)=-1 .9' 47H26F-1? 

G(?7)=-6. , '8?ll?74F-04 
G ( 34 ) = 2. 7 7533549F-33 
G ( 4 1 )= 6.«6RC2467F-?4 
G ( 7 ) = -l .95231736E -7 ? 

C,( 14)=-4.R53?614 7 E-07 

G ( ? 1 ) = 7,2I17?4?PF-03 
9|?8)= 2.1 41 ?P«?3F-0? 

G I 35 ) = ] .O60P1278F-07 
0 ( 4 2 t = ?.?68? f 1448F-04 
G ( 49 ) = 1.11471753F-C7 
H ( 0 1 s-5 # ■"1B0A5'' 1 F-02 
HIl'M* 7.71 240714F-0? 

H(17)=-1.87R9?8?2F-03 
H(11)s 1 .486O6943E-02 
HI 18 )=-4.i7490158E-C3 
H(25)« 2.1G318278E-04 
Ml 12)o-l .1 B245456F-0? 

H ( 1 9 ) = l.''0087732E-02 
H I 26 ) = 4.70389863E-04 
H 1 13 ) = 1 .788034908-13 
Mil 3) =-7.9 58O7466E-04 
n< ?0)=-2 .00044021 F-Oi 

M ( ?7 ) = 4.8971 8959C-0? 

H I 74 ) = 2.4206307BE-03 
H ( 41 )=-l ,21 806522F-03 
Hll4)=-8. 7 5830293E-03 
HI?] )=-8.73461401E-03 
HI ?8 )=-3. 4if 040 73E -03 
H(35)=-l.lR162456E-04 
HI 4? ) =-l • 1 1623O13E-03 
M|49)=-3.?4831891F-04 
Dll )*! .0 
OP ( 1 )«0.0 
GPU J^.O 

rpiliti.n 

r«NGT( 9) = 1.0 
T ( 16 ) = 0.0 


magntooo 

magntooi 

MTMni*00 
MTVD1*00 
MAGNT005 
MAGNT006 
MAGNTC07 
MAGNT008 
MAGNTOOO 
MAGNT010 
MAGNT01 1 
V AGNT 0 1 2 
MAGNT01 3 
HAGNT01 4 
WAGNT015 
MAGNT016 
MAGNT01 7 
VAGNT018 
MAGNT019 
MAC-NT02 0 
MAGNT021 
MAGNT 022 
MAGNT023 
MAGNT024 
MAGNT 02 5 
MAGNT026 
MAGNT 02 7 
MAGNT 028 
MAGNT029 
MAGNT 030 
MAGNT031 
MAGNT 032 
MAGNT033 
MAGNT034 
MAGNT035 
V AGNT 036 
MAGNT 037 
VAGNT038 
VAGNT039 
MAGNT 040 
MAGNT 041 
MAGNT 042 
MAGNT 043 
MAGNT 044 
MAGNT 045 
MAGNT 046 
MAGNT 047 
MAGNT 048 
MAGNT 049 
MAGNT 050 
MAGNT 051 
MAGNT 052 
v AGNT 053 
MAGNT 0 54 
MAGNT 055 
MAGNT 056 
MAGNT 057 
MAGNT 058 
MAGNT059 
MAGNT 060 
MAGNT 061 
MAGNT 06 2 


/ 
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DP 80 N=3,7 
FN = N 

no 0 0 '••=! ,N 
c*»rM 

I = N + 7* ( v_i ) 

R .0 T0MC.T ( I ) = ( ( FN-2 , 7 ) .0 )*»?)/(< FN + FN-3,0 ) »( FN+FN-5.0 ) ) 

IS' rrOOOTr ( Ansp ( ' ,o-S#«' ) ) 

IF ( THFT-1 . r > 7 '.'796 32 7 ) ] 94,1 5*., 1 S6 

' so r--r 

1 SA A *7 = 1 ,/ ( I , + >7 ) 

'SS sp(p )= f iMr(pni) 
rP(?)=rn'Sr( D HI ) 

A OR ( 1 ) rAP* AP 
<\OR ( ? ) =AI7*A<7[7 ( ] ) 
r>7 oo ”= 7,7 
M = «1-1 

sP(vi)=SP(7)«rP(N)+CP(2(»SP(N) 
rP(M)=rP(?)*rP(N)-SP(?)*SP(N) 
no AOp ( ” ) = AP* aop ( m ) 

00=0.0 
OTMFT = '',o 
PPM I =0,0 

no 7? n=?,7 

FN = N 

S(ivr = o.« 

<‘l'MT = o.n 
ci i*<p = o.n 
no 77 Msi ,N 
IF(M_V)P7,flfl,S7 
70 I=°*N-7 
L = I - R 

P( I )=C»P(| ) 

OP ( I )=S»nP (l )+C«P (L ) 
r;o T7> qo 
07 i =S| + 7*(w_i ) 

J=I-1 
f = !-2 

P( I )=C*P( J)-r?)NST( I ) *P t K ) 

np 1 1 > =r*r>p ( j )-s*p ( j j-C^nst » i ) *r>p ( * ) 

00 pM-M-1 

fc=o,( J ,*rp (” )+!-!( I ) »CP(\«| 

<•1 ivp = ci r'D + p ( i )*Tc 
r( ,fc -T -Ci *MT +nP ( I )*TF 

77 C(IMP = S!IWP+FS*P( I )*(-G( I)»SP(M)+H( I )»CP(M) ) 

OI7 = RP+AOD(M ) *rm#<r,||MP 

RTHFT = RTHrT-AS»R{N)*SHMT 
17 rPHI=RPHI-A'-'R (N)*SUMP 
R PH I =R PHI / 9 

RR=SQR TF (RR**2+PTHFT**?+RPHI*»? 1 
RFTI’RN 
f A|n 


MAGNT 063 
MAGNT06A 
MAGNT065 
MAGNT066 
MAGNT 06 7 
MAGNT 068 
VAGNT 069 
MAGNT070 
VAGNT 071 
'MGNT972 
vaGNT 073 
MAGNT 074 
MAGNT075 
VAGNT076 
VAGNT077 
VAGNT078 
MAGNT 079 
MAGNT080 
MAGNT 98 1 
VAGNT082 
MAGNT 08 3 
MAGNT 084 
MAGNT 08 8 
MAGNT 086 
MAGNT 08 7 
MAGNT 088 
MAGNT089 
MAGNT099 
MAGNT 09 1 
M AGNT 092 
VAGNT093 
MAGNT 09A 
MAGNT 095 
MAGNT 096 
VAGNT 097 
MAGNT 098 
MAGNT 099 
MAGNT100 
MAGNT 101 
MAGNT 1C2 
MAGNT 103 
MAGNT ] 0 A 
MAGNT 105 
MAGNT 1 C6 
MAGNT 107 
VAGNT 108 
MAGNT 109 
MAGNT ] 1 0 
MAGNT 111 
MAGNT 112 
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